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A  Computer  Program  for  Optimizing  Long  Haul  Telephone 
Networks  for  Least  Cost  Via  Common  Carrier  Wide  Area 
Telephone  Service  (WATS) 

Thesis  directed  by  Professor  Ployd  K.  Becker 

■ 

With  the  breakup  of  American  Telephone  and 
Telegraph  (AT&T)  nearly  two  years  old,  many  businesses 
and  government  agencies  are  Just  starting  to  feel  the 
Impact.  Equal  access,  the  process  of  making  four  wire 
direct  trunk  connections  available  for  all  long  haul 
common  carriers  to  the  local  telephone  switch,  is  now 
being  offered  incrementally  throughout  the  country. 
People  are  being  asked  to  choose  the  carrier  they  want  to 

carry  their  traffic."/ 

! 

Businesses  and  governments  have  had  WATS 
available  as  a  cost  saving  measure  even  before  the 
divestiture  of  AT6T;  however,  divestiture  has  created 
additional  savings  possibilities  for  WATS  through 


competition. 


A  tool  is  needed  for  businesses  and 


governments  to  make  an  Informed  decision.  It  would  be 
simple  if  one  carrier  was  the  cheapest  for  all  network 
configurations,  but  that  is  not  the  case.  The  least 
costly  alternative  is  different  for  each  specific  network 
configuration  and  usage  pattern  of  the  customer. 

Various  algorithms  have  been  designed^  for  this 
purpose;  however,  the  real  test  of  their  worth  as 
decision  making  tools  is  the  development  and  use  of  a 
final  product.  The  purpose  of  this  thesis  is  to  develop 
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the  customer’s  network  configuration  for  each  of  those 
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an  actual  applications  software  program  to  optimize  WATS 
service  for  lowest  cost.  The  program  will  provide  cost 
information  for  the  customer's  current  configuration  for 
each  of  the  major  common  carriers,  i.e.  AT&T,  Microwave 
Communications  Incorporated  (MCI),  General  Telephone  and 
Electric  (GTE)  SPRINT,  and  Satellite  Business  Systems 
(SBS)  Skyline.  Additionally,  the  program  will  optimize 
the  customer's  network  configuration  for  each  of  those 
carriers. 

Chapter  I  introduces  the  goals  and  criteria  used 
in  development  of  the  software.  Chapter  II  identifies 
the  assumptions  used  in  the  algorithms  along  with  data 
for  each  carrier's  method  of  calculating  charges. 
Chapter  III  contains  a  step  by  step  view  of  screen 
displays,  how  to  use  the  program,  required  data  input, 
and  expected  output.  Chapter  IV  contains  an  example  of 
a  network  configuration,  results  from  the  program,  and 
how  the  program  can  be  used  in  making  a  management 
decision  to  decrease  costs  and/or  improve  service. 
Chapter  V  contains  conclusions. 
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INTRODUCTION 


Purpose 


The  purpose  of  this  thesis  is  to  develop  an 
applications  software  to  optimize  a  common  carrier  long 
haul  telephone  communications  network  for  least  cost 
utilizing  Wide  Area  Telephone  Service  (WATS).  The 
software  is  designed  to  be  menu  driven  and  requires  no 
computer  programming  expertise  by  the  user.  The  software 
is  also  self  correcting;  l.e.,  only  valid  data  entries 
are  accepted  with  the  user  receiving  instructions  on  how 
to  provide  valid  entries. 


I 


Goals  and  Criteria 

1 )  A  person  with  no  computer  experience  should  be 
able  to  use  the  program. 

2)  The  user  should  not  have  to  consult  other 
documentation  to  use  the  program;  i.e., 
explanatory  Information  about  each  aspect  should 
be  provided  on  the  display  screen  as  the  program 
progresses  through  each  level  of  the  menu. 
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3)  The  program  should  accept  only  valid  data 
entries.  It  should  ensure  data  is  valid  before 
computations  are  attempted. 

4)  The  program  should  contain  a  provision  to  easily 
update  all  carriers'  rate  tables  and  criteria  by 
loading  from  a  floppy  disk.  The  date  of  the  rate 
tarrif  on  file  with  the  Federal  Communications 
Commission  (FCC)  that  is  being  utilized  will  be 
displayed  when  the  program  is  started.  When  new 
rate  tables  are  loaded,  the  date  will  be  updated. 

5)  The  user  should  have  the  option  of  seeing  the 
results  on  the  screen,  having  them  printed,  or 
saving  them  for  later  use. 

6)  Output  should  be  in  individual  reports  to  enable 
a  communications  manager  to  quickly  make  an 
informed  decision  on  the  least  cost  alternative 
for  long  distance  common  carrier  WATS. 


CHAPTER  II 


ALGORITHM 

Definitions 

Access  Charge:  The  monthly  amount  which  the 

local  telephone  company  charges  to  use  its 
facilities  to  connect  to  the  long  distance 
carrier.  This  reimburses  the  telephone  company 

for  circuit  usage  attributed  to  long  distance 
use . 

Band:  A  geographic  service  area  for  WATS 

extending  from  the  originating  location  of  the 

service.  Band  0  is  intrastate  service  only  and 

can  only  be  provided  by  the  local  telephone 
company.  Band  1  includes  the  contiguous  states 

but  does  not  provide  Band  0  service.  Bands  2 

through  5  extend  service  further  from  the 
originating  location  with  corresponding  increases 
in  usage  charges.  Band  5  service  Includes  the 
entire  continental  United  States.  Any  band  of 
service  includes  all  lower  bands  of  coverage 
(except  Band  O).  Band  6  also  includes  Alaska  and 
Hawaii . 


C.  Busy  Hour:  The  continuous  60  minute  period 

during  the .  day  when  maximum  calling  volume 


occurs . 

D.  Carried  Traffic:  The  amount  of  time  a  circuit  or 
equipment  is  busy.  Carried  traffic  equals 
connected  traffic  plus  processing  time. 

E.  Connected  Traffic:  The  amount  of  time  the  origin 
and  destination  can  communicate  with  each  other. 
This  is  the  total  time  both  parties  are  off-hook. 
Bills  received  from  common  carriers  are  figured 
using  connected  traffic. 

F.  Connection  Charge:  A  one  time  charge  by  the  long 
distance  carrier  to  establish  service.  The 
amount  is  based  on  the  number  of  lines  being 
provided. 

G.  Direct  Distance  Dialing  (DDD) :  A  method  of 

calling  long  distance  without  operator 
assistance.  Business  and  residential  customers 
pay  the  same  rates.  Each  call  is  calculated 
according  to  distance,  time  of  day,  and  length  of 
the  call. 

H.  Erlang:  A  measure  of  telephone  traffic  as  60 

minutes  or  one  hour  of  equipment  use. 

I.  Grade  of  Service:  The  probability  that  a  caller 
will  receive  a  busy  signal  on  the  first  attempt. 
It  is  designated  by  a  "P"  plus  a  number.  For 
example,  "P.03"  means  a  3  percent  probability  of 


a  busy  signal.  Other  conventions  express  it  as 
'’P03"  which  signifies  the  same  thing.  This 
program  will  use  the  latter. 

Off-hook:  Opening  the  loop  between  the  user  and 

the  central  office  by  lifting  the  receiver  off 
the  telephone. 

Off -net:  Utilizing  AT&T  facilities  for  any  part 

of  a  connection. 

On-hook:  Closing  the  loop  between  the  user  and 

the  central  office  by  replacing  the  receiver  on 
the  telephone. 

On-net:  No  AT&T  facilities  are  utilized  for  any 

part  of  a  connection. 

Processing  Time:  The  time  used  to  establish  and 
terminate  a  connection.  Circuits  are  tied  up 
during  this  time  even  though  no  actual  connection 
or  communication  can  occur.  For  this  reason, 
connection  time  on  a  single  line  can  never  equal 
one  erlang  or  60  minutes. 

Station  Message  Detail  Recording  (SMDR):  A 

device  to  measure  all  user  calling  activity. 
Data  provided  includes  date,  time,  origin, 
destination,  and  duration  of  the  call.  The 
duration  includes  some  of  the  processing  time. 
Trunk:  A  communications  path  between  switches. 


Q.  Usage  Charge:  The  amount  per  minute  or  hour  of 
connection  time  charged  by  the  carrier  for  the 


connection. 

R.  Wide  Area  Telephone  Service  (WATS):  A  service  to 
high  usage  business  or  government  users  with 
reduced  rates  per  minute  of  connection.  Service 
areas  are  Identified  by  bands  with  all  locations 
connected  on  a  given  line  charged  at  the  same 
rate.  For  example,  all  calls  made  on  a  Band  4 
line  would  be  charged  at  the  Band  4  rate  even 
though  some  destinations  are  In  the  lower  rate 
Bands  1,  2,  or  3. 

Assumptions 

This  program  Is  designed  In  order  to  accomodate 

many  types  of  models  one  of  which  a  particular  network 

may  approximate.  Because  the  program  operates  through 

look-up  tables,  changing  algorithms  Is  a  simple  matter  of 

loading  a  new  look-up  table  for  the  grade  of  service. 

The  program  does  not  calculate  costs  of  blocked  calls 

which  are  redirected  to  DDD  trunks.  For  purposes  of  this 

thesis,  the  polsson  distribution  Is  used  for  the  look-up 
2 

table  because  It  Is  simple,  widely  used,  and  In  many 
cases  the  results  are  close  to  those  given  by  Erlang  B 

3 

and  Erlang  C.  In  Erlang  B,  calls  are  assumed  to  arrive 
In  a  random  order  so  as  to  approximate  an  exponential 
distribution.  Blocked  calls  are  cleared  from  the  system 


and  do  not  return;  l.e.,  their  is  no  queue  so  the  caller 
must  redial  in  order  to  make  the  call.  This  is 
expecially  true  of  military  installations  because 
accountability  is  needed  to  prevent  abuses  of  the  system. 
Erlang  B  is  also  accurate  in  an  automatic  route  selection 
system  which  allows  blocked  calls  to  immediately  try  the 
next  higher  band. 

In  systems  where  blocked  calls  are  not  cleared 
from  the  system  and  immediate  overflow  to  the  next  higher 
band  is  not  available,  Extended  Erlang  B  should  be  used. 
In  systems  where  an  infinite  queue  is  available,  Erlang  C 
should  be  used.  For  unusual  situations  where  a  peaked  or 
smooth  traffic  pattern  exists,  other  formulas  must  be 
used.  Additional  details  on  traffic  models  are  in 
Appendix  D. 

This  thesis  assumes  that  the  average  length  of 
each  call  exceeds  one  minute.  The  reason  for  this  is 
that  most  common  carriers  charge  a  minimum  time  of  one 
minute  times  the  number  of  calls.  Telephone  voice 
traffic  will  most  always  exhibit  this  behavior.  The 
average  would  fall  below  one  minute  if  most  traffic  was 
short  data  inquiries  to  a  computer  such  as  bank  accounts. 
Even  then,  the  user  can  still  use  the  program  by  entering 
his  time  as  one  minute  times  the  number  of  calls. 

In  optimizing  the  network  for  lowest  cost,  the 
algorithm  uses  as  a  default  value,  the  worst  grade  of 
service  for  any  of  the  customer’s  existing  lines.  If  the 


customer  Is  satisfied  with  the  existing  grade  of  service, 
there  Is  no  need  to  pay  for  any  better.  If  the  customer 
Is  not  satisfied  with  the  present  grade  of  service,  a 
different  one  can  be  entered. 

The  network  Is  optimized  according  to  the  busy 
hour  service  requirement  of  the  customer.  If  the  busy 
hour  service  Is  adequate,  all  other  times  will  be  better 
than  the  busy  hour. 

AT&T  Costs 

AT&T  calculates  each  WATS  call  to  the  nearest 
tenth  of  a  second  for  the  total  time  that  both  parties 
are  off-hook.  Charges  are  based  on  band,  time  of  day, 
and  the  total  accumulated  time  charged  so  far  that  month. 
The  first  15  hours  of  use  are  charged  at  the  highest 
rate,  the  next  25  hours  at  a  lower  rate,  the  next  40 
hours  at  a  still  lower  rate,  and  anything  over  80  hours 
total  use  at  the  lowest  rate.  The  hours  for  all  lines  of 
a  given  band  are  averaged  before  determining  the  charges. 
For  example.  If  one  had  two  Band  2  lines,  one  with  50 
hours/month  of  use  and  another  with  100  hours/month  of 
use,  charges  would  be  calculated  for  two  lines,  each  with 
75  hours/month  of  use.  This  Is  done  for  usage  during 
each  of  three  time  periods; 

1)  DAY  -  8:00  A.M.  to  5s00  P.M.  Monday  through 
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2)  EVENING  -  5:00  P.M.  to  11:00  P.M.  Sunday  through 
Friday. 

3)  NIGHT/WEEKEND  -  11:00  P.M.  to  8:00  A.M.  Sunday 
through  Friday  and  all  day  Saturday. 

AT&T  has  no  minimum  monthly  usage  charge.  The 
access  charge  is  $37.65/nionth  for  each  outbound  WATS  line 
and  $42. 80/month  for  each  inbound  WATS  line.  Connection 
charges  are  $222.00  for  the  first  line  and  $123.00  for 
each  additional  line.  AT&T  is  the  only  carrier  with  true 
incoming  WATS;  i.e.,  the  user  dials  "1 -800-XXX-XXXX. " 

MCI  Costs 

MCI  uses  the  same  procedure  as  AT&T  except  each 
call  is  rounded  to  the  nearest  six  second  interval.  MCI 
has  a  minimum  usage  charge  of  $75.00  per  line.  Access 
charge  is  $100. 00/month  per  line.  Connection  charge  is 
$120.00  per  line.  MCI  also  has  separate  on-net  and 
off-net  rates.  Unless  the  customer  knows  his  actual 
calling  pattern  through  use  of  a  detail  call  recording 
device,  default  values  of  80%  on-net  and  20%  off-net  are 
used  for  calculating  costs  in  the  algorithm.  The 
customer  can  enter  his  own  values  if  he  chooses.  For 
example,  a  stock  brockerage  would  probably  have  close  to 
100%  of  his  calls  on-net  (large  metropolitan  cities); 
whereas,  a  farm  implement  company  would  be  just  the 


GTE  SPRINT  Costs 
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SPRINT  uses  the  same  procedure  as  MCI;  however, 
its  crossover  points  for  reduced  rates  occur  at  40,  70, 
and  100  total  usage  hours/month.  SPRINT  has  no  minimum 
usage  charge.  Access  charge  is  $100.00  per  line. 

Connection  charge  is  $105.00  per  line.  SPRINT  also  has  a 
feature  which  AT&T  and  MCI  do  not.  SPRINT  bills  for  the 
exact  band  of  the  call,  not  the  band  of  the  trunk 
utilized.  All  calls  can  travel  over  a  single  line 
(provided  busy  hour  traffic  permits  this)  and  each  call 
will  be  billed  according  to  the  band  of  the  destination. 
SPRINT  breaks  out  its  calls  at  the  switch  location  and 
routes  them  over  separate  WATS  band  lines. 

SBS  Skyline  Costs 

SBS  Skyline  does  not  have  separate  bands  as  the 
other  carriers  do.  It  has  a  four  tier  structure  as 
follows ; 

1)  TIER  I  -  Major  metrolitan  areas. 

2)  TIER  II  -  Includes  additional  frequently  called 
cities . 

3)  TIER  III  -  Remainder  of  contiguous  U.S.,  Puerto 
Rico,  and  the  Virgin  Islands  not  covered  by 
Tier  I,  II,  or  IV. 

4)  TIER  IV  -  Equivalent  to  WATS  Band  1  coverage. 

All  traffic  regardless  of  destination  travels 
over  the  same  channel.  There  are  only  two  time  of  day 


billing  periods:  day,  8:00  A.M.  to  5:00  P.M.,  and  all 
others.  There  is  a  minimum  usage  charge  of  $400.00  per 
channel  if  usage  is  below  50  hours/channel/month. 
Connection  charge  is  $105.00  per  line.  Access  charge  is 
based  on  the  distance  from  the  customer  to  the  SBS 
Skyline  access  point  as  follows: 


0-1  Mile 
2-15  Miles 
16-25  Miles 
26-35  Miles 
36-50  Miles 
Over  50  Miles 


$85 .00/month 
$1 00.00/month 
$1 25.00/month 
$1  50.00/month 
$175. 00/month 

$1 2.00/month  plus  other  common 
carrier  charges- 


Table  2-1  provides  a  summary  of  all  four  carriers. 


Overview 


The  name  of  the  program  is  OPTICOM.  There  are 
five  menu  options  for  the  user  to  choose  in  the  main 


menu: 


1 )  Determine  Least  Cost  WATS  Carrier  for  Current 
Network. 

2)  Optimize  Current  Network  for  WATS  Carrier. 

3)  Load  New  Carrier  Rate  Tables. 

4)  View  Existing  Result  Files. 

5)  Delete  Existing  File. 


TABLE  2-1 


Comparison  of  Common  Carrier  Rate  Structures 


AT6T 

MCI 

SPRINT 

SBS 

Minimum  Avg 

60 

60 

60 

30 

Call  Length 

sec . 

sec. 

sec. 

sec. 

Billing 

1/10 

6 

6 

1 

Period 

sec. 

sec. 

sec. 

sec. 

Minimum  Use 

NONE 

$75 

NONE 

o 

o 

Access/Out 

$37.65 

$100 

$100 

Access/In 

$42.80 

N/A 

N/A 

N/A 

Connection  1st 

$222 

$120 

$105 

$105 

2nd 

$123 

$120 

$105 

$105 

Use  Reduction 

15 

15 

40 

40 

(Hours) 

40 

40 

70 

45 

80 

80 

100 

• 

• 

• 

250 

Separate  Band 

Yes 

Yes 

No 

No 

Trunks 

Time  of  Day 

Day 

Day 

Day 

Day 

Periods 

Eve 

Eve 

Eve 

Other 

Night 

Night 

Night 

Net  Structure 

N/A 

2  Rates 

2  Rates 

4  Tiers 

If  less  than  50  hours. 

$85  to  $175  depending  on  distance. 
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Determine  Least  Cost  WATS  Carrier  for  Current  Network 

This  option  will  use  the  Information  provided  on 
the  customer's  present  monthly  phone  bill  to  calculate 
what  the  cost  would  be  for  all  four  carriers.  This  does 
not  optimize  his  network;  It  uses  his  existing  network 
configuration.  For  SBS  Skyline,  the  number  of  channels 
Is  equal  to  the  total  number  of  AT&T  lines  In  order  to 
keep  the  average  grade  of  service  equivalent  for 
comparison  purposes. 

Optimize  Current  Network  for  WATS  Carrier 

This  option  will  utilize  Information  obtained 
from  a  detail  call  recording  device  to  optimize  a  network 
for  each  carrier.  The  network  will  have  been  previously 
entered  In  option  1  above  and  stored.  The  optimum 
network  configuration  for  each  carrier  will  be  separately 
provided.  The  algorithm  calculates  the  cost  for  all 
possible  configurations  and  saves  the  lowest  cost  and 
configuration  for  each  carrier.  The  program  Is  written 
for  up  to  Band  6.  The  maximum  number  of  possibilities 
occurs  when  there  Is  Band  6  traffic.  The  user  either 
does  or  doesn't  have  each  of  the  other  five  band  lines  so 
the  maximum  number  of  possibilities  Is  2^  or  32. 

Load  New  Carrier  Rate  Tables 

This  option  enables  all  carrier  rate  tables, 


parameters,  and  mlnlmums  to  be  updated  when  new  ones  are 
filed  with  the  FCC.  This  Is  done  from  a  floppy  disk. 


This  option  allows  the  user  to  either  view  or 
have  printed  the  results  previously  calculated  in  options 
1  and  2  above. 

Delete  Result  File 

This  option  allows  the  user  to  delete  results 
previously  calculated  in  options  1  and  2  above. 


CHAPTER  III 


USING  THE  OPTICOM  PROGRAM 
Requirements 

OPTICOM  is  written  in  the  dBASE  III  language  for 
use  on  any  IBM  PC  compatible  computer  with  a  minimum  of 
384K  of  RAM  and  two  360K  floppy  drives  or  one  hard  disk 
and  one  floppy  drive.  It  can  be  used  with  as  little  as 
256k  of  RAM;  however,  new  carrier  rate  tables  cannot  be 
loaded  then.  Since  the  program  has  not  been  compiled, 
the  user  must  already  have  the  dBASE  III  software.  The 
program  is  run  with  the  dBASE  III  software  in  either  the 
hard  disk  or  floppy  drive  A  and  the  OPTICOM  floppy  in 
drive  B.  A  printer  is  required  to  obtain  hard  copy 
results . 

Beginning  the  Program 

When  dBASE  III  is  first  started,  the  screen 
appears  as  in  Fig.  3-1 •  With  the  OPTICOM  floppy  in  drive 
B,  type  ”D0  B: OPTICOM"  as  shown  in  Fig.  3-2  and  then 
press  <Return>.  <>  will  be  used  to  denote  keys  on  the 
keyboard.  The  screen  will  appear  as  in  Fig.  3-3 •  From 
here  on,  using  the  program  is  just  a  matter  of  following 


the  directions  on  the  screen.  The  program  will  accept 
valid  entries  only..  The  screen  will  stay  the  same  until 
a  valid  entry  is  made.  The  main  menu  for  OPTICOM  appears 
in  Fig.  3-4. 


dBASE  III  version  1.10  IBM/MSDOS  *** 

COPYRIGHT  (c)  ASHTON  TATE  1984 

AS  AN  UNPUBLISHED  LICENSED  PROPRIETARY  WORK. 

ALL  RIGHTS  RESERVED. 

Use  of  this  software  and  the  other  materials  contained  in 
the  software  package  (the  "Materials”)  has  been  provided 
under  a  Software  License  Agreement  (please  read  in  full). 
In  summary,  Ashton-Tate  grants  you  a  paid-up,  non- 
transferrable ,  personal  license  to  use  the  Materials  only 
on  a  single  or  subsequent  (but  not  additional)  computer 
terminal  for  fifty  years  from  the  time  the  sealed  disk 
has  been  opened.  You  receive  the  right  to  use  the 
Materials,  but  do  not  become  the  owner  of  them.  You  may 
not  alter,  decompile,  or  reverse-assemble  the  software, 
and  YOU  MAY  NOT  COPY  the  Materials.  The  Materials  are 
protected  by  copyright,  trade  secrets,  and  trademark  law, 
the  violation  of  which  can  result  in  civil  damages  and 
criminal  prosecution. 

dBASE,  dBASE  III  and  ASHTON-TATE  are  trademarks  of 
Ashton-Tate 

Press  the  FI  key  for  help 

Type  a  command  (or  ASSIST)  and  press  the  return  key  (< — ) 


FIGURE 
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dBASE  III  version  1.10  IBM/MSDOS  **» 

COPYRIGHT  (c)  ASHTON  TATE  1984 

AS  AN  UNPUBLISHED  LICENSED  PROPRIETARY  WORK. 

ALL  RIGHTS  RESERVED. 

Use  of  this  software  and  the  other  materials  contained  In 
the  software  package  (the  "Materials")  has  been  provided 
under  a  Software  License  Agreement  (please  read  In  full). 
In  summary,  Ashton-Tate  grants  you  a  paid-up,  non- 
transferrable,  personal  license  to  use  the  Materials  only 
on  a  single  or  subsequent  (but  not  additional)  computer 
terminal  for  fifty  years  from  the  time  the  sealed  disk 
has  been  opened.  You  receive  the  right  to  use  the 
Materials,  but  do  not  become  the  owner  of  them.  You  may 
not  alter,  decompile,  or  reverse-assemble  the  software, 
and  YOU  MAY  NOT  COPY  the  Materials.  The  Materials  are 
protected  by  copyright,  trade  secrets,  and  trademark  law, 
the  violation  of  which  can  result  In  civil  damages  and 
criminal  prosecution. 

dBASE,  dBASE  III  and  ASHTON-TATE  are  trademarks  of 
Ashton-Tate 

Press  the  FI  key  for  help 

Type  a  command  (or  ASSIST)  and  press  the  return  key  (< — ) 

.  DO  B;0PTIC0M 


FIGURE  3-2 


OPTICOM  VERSION  1.00  RATE  TABLES  AS  OF:  1  JULY  1985 

DECEMBER  2,  1985 
STEPHEN  A.  DRAPER 


OPTICOM  is  a  software  package  designed  to  aid  you, 
the  communications  manager  in  making  decisions  to 
optimize  your  long  haul  communications  network.  This 
program  is  currently  limited  to  telephone  traffic; 
however,  future  versions  may  be  expanded  to  include  data 
traffic  as  well.  The  program  is  menu  driven  so  you 
needn't  worry  if  you  are  uncomfortable  with  computers  or 
programming.  Each  option,  when  selected,  will  provide  a 
description  along  with  the  information  you  are  required 
to  provide.  If  you  need  a  different  selection,  you  can 
return  to  any  level  of  the  menu  to  make  a  different 
selection.  Press  <Esc>  any  time  you  wish  to  terminate 
the  OPTICOM  program. 

Press  any  key  to  continue... 


FIGURE  3-3 


MAIN  MENU 


-  1  -  DETERMINE  LEAST  COST  WATS  CARRIER  FOR  CURRENT  NETWORK 

-  2  -  OPTIMIZE  CURRENT  NETWORK  FOR  WATS  CARRIER 

-  3  -  LOAD  NEW  CARRIER  RATE  TABLES 

-  4  -  VIEW  EXISTING  RESULT  FILES 

-  5  -  DELETE  EXISTING  FILE 


-  0  -  FINISHED 


CHOOSE  ONE: 


FIGURE 


Option  1  -  Determine  Least  Cost  WATS  Carrier  for  Current 
Network 

Upon  selecting  this  option,  the  screen  appears  as 
In  Fig.  3-5*  The  default  for  continuing  Is  "N.”  Any 
response  other  than  ”T"  will  return  to  the  main  menu. 
Additional  explanatory  Information  appears  as  In  Figs. 
3-6  and  3-7.  Fig.  3-8  begins  the  process  of  entering 
data.  Entries  can  be  corrected  by  using  the  <Back  Space> 
or  <Del>  keys  and  retyping  correct  values.  Also,  the 
cursor  can  be  positioned  by  using  the  directional  arrow 
keys  on  the  numerical  keypad.  If  the  entries  are  valid, 
the  screen  will  then  appear  as  In  Fig.  3-9*  If  the 
entries  are  not  valid,  the  screen  will  again  appear  as  in 
Fig.  3-8  with  a  message  to  reenter  the  data.  The  program 
automatically  calculates  the  SBS  Skyline  Tier  4 
percentage  after  the  other  values  are  entered. 

Data  entry  for  each  WATS  band  Is  shown  in  Figs. 
3-10  and  3-11*  These  continue  until  the  last  entry  is 
made.  The  screen  then  appears  as  in  Fig.  3-12.  In  Fig. 
3-13,  corrections,  deletions,  or  additions  can  be  made 
before  calculations  are  performed.  Instructions  appear 
at  the  top  of  the  screen  means  the  <Ctrl>  key). 


a 


Once  all  data  is  correct,  the  user  presses  <Ctrl><End> 
and  the  screen  appears  as  In  Fig.  3-14*  Fig.  3-15 
appears  when  all  calculations  are  complete. 


DETERMINE  THE  LEAST  COST  WATS  CARRIER 


This  option  will  determine  which  carrier  is  the 
least  costly  for  your  existing  network.  The  carriers 
used  are  MCI,  SPRINT,  SBS  Skyline,  and  ATfeT,  You  must 
provide  information  on  your  current  configuration  for 
each  line  as  follows: 

(1)  Average  hours  billed  each  month. 

(2)  WATS  band. 

(3)  WATS  in  or  out. 

(4)  Percentage  of  calls  to  metropolitan  areas. 


DO  YOU  WISH  TO  CONTINUE  WITH  THIS  OPTION  (Y/N)?  N 


FIGURE  3-5 


MCI  and  SPRINT  have  two  rate  tables;  one  for  calls 
that  utilize  only  their  facilities,  such  as  large  cities, 
and  one  for  calls  that  must  also  utilize  AT&T  facilities, 
such  as  rural  areas.  The  default  values  for  MCI  and 
SPRINT  are  80%  ON-NET  (metropolitan)  and  20%  OFF-NET 
(rural) . 


Press  any  key  to  continue... 


SBS  Skyline  has  all  VATS  band  calls  over  a  single 
access  channel  rather  than  a  separate  line  for  different 
bands  of  service.  Consequently,  their  rate  tables  take 
Into  account  where  the  destination  of  the  call  is  for 
billing  purposes.  SBS  rates  are  based  on  a  four  tier 
structure  as  follows: 

TIER  1  -  Major  metropolitan  areas. 

TIER  2  -  Includes  additional  frequently  called  cities. 
TIER  3  -  Includes  remainder  of  contiguous  US,  Puerto 
Rico,  and  the  Virgin  Islands. 

TIER  4  -  Equivalent  WATS  band  1  coverage  of  bordering 
states. 

Default  values  for  SBS  Skyline  are  65%/20%/1 OZ/5% 
for  TIERS  1  through  4  respectively.  If  your  calling 
patterns  are  unusual,  then  enter  different  values.  For 
example,  a  stock  brokerage  would  have  close  to  100%  of 
its  calls  to  metropolitan  areas  and  a  farm  implement 
company  mostly  to  rural  areas. 


Press  any  key  to  continue... 


FIGURE  3- 


PRESS  RETURN  KEY  TO  USE  DEFAULT  VALUES  OR  ENTER  YOUR  OWN. 


MCI  &  SPRINT  METROPOLITAN  PERCENTAGE:  80 

SBS  SKYLINE  TIER  1:  65 

SBS  SKYLINE  TIER  2:  20 

SBS  SKYLINE  TIER  3:  10 


FIGURE  3-8 


PRESS  RETURN  KEY  TO  USE  DEFAULT  VALUES  OR  ENTER  YOUR  OWN. 

MCI  &  SPRINT  METROPOLITAN  PERCENTAGE:  80 


SBS  SKYLINE  TIER  1 :  65 
SBS  SKYLINE  TIER  2:  20 
SBS  SKYLINE  TIER  3:  10 
SBS  SKYLINE  TIER  4:  5 


Press  any  key  to  continue... 


ENTER  INFORMATION  FOR  EACH  WATS  BAND  YOU  CURRENTLY  HAVE. 

WATS  BAND  (1  THRU  6); 


FIGURE  3-10 


ENTER  INFORMATION  FOR  EACH  WATS  BAND  YOU  CURRENTLY  HAVE 


WATS  BAND  (1  THRU  6):  1 
IS  THIS  AN  OUT  WATS  (T/F)?  T 
NUMBER  OF  LINES:  2 

AVERAGE  HOURS  BILLED  PER  LINE  PER  MONTH: 

DAY:  45.00 
EVENING:  12.00 
NIGHT/WEEKEND:  5.00 

IS  THIS  YOUR  LAST  ENTRY  (T/F)?  F 


FIGURE  3-11 


ENTER  INFORMATION  FOR  EACH  WATS  BAND  YOU  CURRENTLY  HAVE. 


WATS  BAND  (1  THRU  6):  1 
IS  THIS  AN  OUT  WATS  (T/F)?  T 
NUMBER  OF  LINES:  2 

AVERAGE  HOURS  BILLED  PER  LINE  PER  MONTH: 

DAY:  45.00 
EVENING:  12.00 
NIGHT/WEEKEND:  5.00 

IS  THIS  YOUR  LAST  ENTRY  (T/F)?  F 

DOUBLE  CHECK  YOUR  ENTRIES  AND  MAKE  CORRECTIONS  ON  THE 
NEXT  SCREEN. 

PRESS  <Ctrl><End>  WHEN  FINISHED. 

Press  any  key  to  continue... 
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1 


NOWNET 
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:  Char: 
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:  Pan: 

< - > 

< - > 

Home  End 
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2 
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1 

89.00 

45.00 

12.00 

5  T 

3 

123.00 

33.00 

26.00 
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1 

67.00 
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FIGURE  3-13 


WAIT  A  MINUTE  WHILE  I  DO  SOME  FIGU 


_ FIGURE  3-U 

-1-  DISPLAY  RESULTS  ON  SCREEN 
-2-  PRINT  OUT  THE  RESULTS 

-0-  FINISHED 


CHOOSE  ONE 


Suboption  1  -  Display  Results  on  Screen 


Explanatory  Information  appears  as  In  Fig.  3-16 
followed  by  reports  of  the  results.  If  there  are 
outgoing  WATS  lines,  five  reports  will  be  generated  as  in 
Figs.  3-17  through  3-22.  The  percentage  of 
on-net/off-net  traffic  entered  appears  at  the  top  of  each 


MCI  and  SPRINT  report  and  the  SBS  Skyline  percentages 
appear  In  that  report.  Fig.  3-22  shows  a  summary  of  all 
the  carriers'  outgoing  WATS  cost  in  order  to  select  the 
lowest  cost  carrier  for  the  current  network.  If  there 
are  incoming  WATS  lines,  one  report  will  be  generated  as 
in  Fig.  3-23.  Upon  completion,  the  menu  again  appears  as 
in  Fig.  3-24* 


A  report  summary  will  be  displayed  for  each  carrier 
plus  a  comparison  report  of  all  the  carriers.  The 
display  will  wait  between  reports.  Press  <Ctrl><S>  to 
stop  the  scrolling.  Press  <Ctrl><S>  again  to  resume. 

Press  any  key  to  continue... 


FIGURE  3-1 


12/23/BS 


Am  OUT  HATS 
NONTHLY  COST  SUHHARY 
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26.00 
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6 
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1961.28 
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Prill  any  kiy  to  continu(...6 


Acciii  charge  ii  $  37.65  per  line. 

Connection  charge  it  <222.00  for  the  tint  line  and 
<123.00  lor  each  lucceiiive  line. 

Total  connection  charge  lor  tbit  conliguration  it  <  837.00. 
Prill  any  key  to  continue... 


Figure  3-17 


12/23/85 


NCI  OUT  HATS 
HWTNLY  COST  SUHNARY 


B 

A  1 

DAY 

HRS/ 

DAY 

EVE 

HRS/ 

EVE 

NI6HT 

HRS/ 

NI6HT 

ACCESS 

TOTAL 

N  LNS 

0 

LINE 

«) 

LINE 

«) 

LINE 

«) 

«) 

«) 

1  2 

45.00 

1122.78 

12.00 

270.58 

5.00 

60.08 

200.00 

1653.44 

3  1 

89.00 

1111.46 

45.00 

477.46 

12.00 

75.60 

100.00 

1764.52 

5  3 

123.00 

4826.25 

33.00 

1149.96 

26.00 

521.04 

300.00 

6797.25 

#«  Total  *« 

6 

7060.49 

1898.00 

656.72 

600.00 

10215.21 

Prut  any  key  to  continue... J 


Acceii  charge  it  <100.00  per  line. 

Connection  charge  it  <120.00  per  line. 

Total  connection  charge  lor  thii  conliguration  it  <  720.00. 

Riniiui  utage  charge  it  <  75.00  per  line  exclutive  ol  acciii  chargei. 
Prut  any  key  to  continue... 


Page  No.  1 

801  ON-NET/  201  OPF-NET 

12/23/85 

SPRINT  OUT  HATS 

HONTHLY  COST  SUHHARY 

B 

DAY 

EVE 

NI6HT 

A  1 

HRS/ 

DAY 

HRS/ 

EVE 

HRS/ 

NIGHT 

ACCESS 

TOTAL 

N  INS 

D 

LINE 

(4) 

LINE 

(1) 

LINE 

<l) 

(1) 

<11 

1  2 

45.00 

1277.48 

12.00 

2i0.21 

5.00 

i3.1& 

150.00 

1750.85 

3  1 

89.00 

1171.88 

45.00 

511.20 

12.00 

80.06 

75.00 

1836.14 

5  3 

123.00 

5055.71 

33.00 

1179.88 

2&.00 

539.91 

225.00 

7000.50 

*aa  Total  sas 

6 

7505.07 

1951.29 

683.13 

450.00 

10589.49 

Press  any  key  to  continue. 

...8 

Figure  : 

J-19 

Acccii  charg*  ii  I  75.00  per  line. 

Connection  charge  is  i  75.00  per  line. 

Total  connection  charge  Tor  this  conTiguration  is  I  450.00. 
Press  any  key  to  continue... 


Page  No. 
12/23/B5 


SBS  SKYLIkE  OUT  HATS 
HONTHLY  COST  SUIWARY 


1 

DAY 

HRS/ 

DAY 

OTHER 

HRS/ 

OTHER 

TIER  1  LINES 

LINE 

(1) 

LINE 

(t) 

1  65 

6 

59.37 

4511.63 

29.03 

1149.72 

2  20 

6 

16.27 

1523.66 

8.93 

418.08 

3  10 

6 

9.13 

929.19 

4.47 

281.72 

4  5 

6 

4.57 

414.78 

2.23 

131.66 

SIS  Total 

100 

SSI 

91.33 

7379.26 

44.67 

1961.38 

Press  any  key  to  continue. 


Fisrure  3- 


Prcts  any  key  to  continue... 6 


Acceii  charge  it  1100.00  per  line. 

Total  aonthly  accesi  charge  lor  this  configuration  it  t  600.00. 

Niniiue  utage  charge  it  0400. OOil  average  ute  is  less  than  50  hours/line. 
Total  ionthly  cost  for  this  configuration  it  $  9960.64. 

Connection  charges  per  line  arc  based  on  the  distance  beteeen  your 
exchange  carrier  Hire  center  and  the  SBS  Skyline  HATS  access  point. 


DISTANCE 

COST 

0-1 

lilt 

85.00 

2-15 

•lies 

100.00 

16-25 

■ilct 

125.00 

26-35 

•ilct 

150.00 

36-50 

•ilct 

175.00 

Press  any  key  to  continue... 


Figure  3-21 


Page  No.  t 
12/23/85 

OBT  HATS 

HONTHLY  COST  CMPARISON 
BY  BAND 


DAY 

EVE 

N16HT 

ATbT 

HCI 

SPRINT 

t 

HRS/ 

HRS/ 

HRS/ 

TOTAL 

TOTAL 

TOTAL 

BAND  LINES 

LINE 

LINE 

LINE 

(f) 

II) 

II) 

1 

2 

45.00 

12.00 

5.00 

1865.02 

1653.44 

1750.85 

3 

1 

89.00 

45.00 

12.00 

1985.82 

1764.52 

1838.14 

5 

3 

123.00 

33.00 

26.00 

7555.80 

6797.25 

7000.50 

t#f  Total  sfs 

6  11406.64  10215.21  10589.49 


SBS  Skyline  total  aonthly  cost  it  I  9960.64. 
Press  any  key  to  continue... 


Figure 


r«ge  ro.  i 
12/23/B5 


ATIT  IN  HATS 
MONTHLY  COST  SUMMARY 


DAY 

EVE 

N16HT 

HRS/ 

DAY 

HRS/ 

EVE 

HRS/ 

NI6HT 

ACCESS 

TOTAL 

LINE 

(1) 

LINE 

(fl 

LINE 

(tl 

(» 

67.00 

1147.80 

2.00 

25.60 

2.00 

13.66 

37.65 

1224.71 

M«  Totil  «« 

1  1147. SO 

Press  any  key  to  continue... F 


13.66  37.65  1224.71 


Access  charge  is  I  42.80  per  line. 

Connection  charge  is  1222.00  tor  the  First  line  and 
1123.00  For  each  successive  line. 

Total  connection  charge  For  this  conFiguration  is  t  345.00. 
Press  any  key  to  continue... 


S' 

i 

II 


Suboption  2  -  Print  Out  the  Results 


30 


Upon  selecting  this  option,  the  screen  appears  as 
In  Fig.  3-25.  If  no  printer  Is  connected  or  the  printer 
Is  turned  off,  an  error  message  will  appear  as  In  Fig. 
3-26.  To  correct,  turn  on  the  printer  and  press  <R>. 
WARNING  I  DO  NOT  PRESS  <A>t  THIS  WILL  ABORT  THE  PROGRAM 
AND  ALL  DATA  JUST  ENTERED  PLUS  THE  RESULTS  WILL  BE  LOST! 
Just  be  sure  you  have  a  printer  connected  If  you  select 
suboption  2. 

Individual  reports  will  be  printed  as  In  Figs.  3-27 
through  3-32.  Upon  completion,  the  screen  will  again 


return  to  the  menu  as  In  Fig.  3-33. 


FIGURE 


12/23/BS 


ATtT  OUT  NATS 
MONTHLY  COST  SUMMARY 


B 

DAY 

EVE 

NIBHT 

A  1 

HRS/ 

DAY 

HRS/ 

EVE 

HRS/ 

NI6HT 

ACCESS 

TOTAL 

N  LNS 

0 

LINE 

(1) 

LINE 

(t) 

LINE 

(t) 

(t) 

(t) 

1 

2 

43.00 

1432.80 

12.00 

275.52 

5.00 

61.40 

75.30 

1865.02 

3 

I 

89.00 

1376.19 

43.00 

494.70 

12.00 

77.28 

37.65 

1985.82 

3 

3 

123.00 

3719.05 

33.00 

1191.06 

26.00 

532.74 

112.95 

7555.80 

•H 

Totil  «« 

6 

8348.04 

1961.28 

671.42 

225.90 

11406.64 

Acctit  chirgi  it  I  37.63  pfr  lint. 

Conntction  chirgc  ii  1222.00  for  till  first  lint  ind 
tl23.00  for  Nch  tucciiiivi  lino. 

Totil  conntction  chirgi  for  this  configurition  is  t  837.00. 


Figure  3-2 


Pagt  No.  1 
12/23/85 


801  ON-ICT/  201  OFF-NET 

NCI  OUT  HATS 
HONTHLY  COST  SUMARY 


8 

A  1 

SAY 

HRS/ 

DAY 

EVE 

HRS/ 

EVE 

NI6HT 

HRS/ 

NI6HT 

ACCESS 

TOTAL 

N  LNS 

D 

LINE 

(t) 

LINE 

($) 

LINE 

«) 

(1) 

(t) 

1  2 

45.00 

1122.78 

12.00 

270.58 

5.00 

40.08 

200.00 

1453.44 

3  1 

89.00 

1111.44 

45.00 

477.44 

12.00 

75.40 

100.00 

1744.52 

5  3 

123.00 

4824.25 

33.00 

1149.94 

24.00 

521.04 

300.00 

4797.25 

***  Total  sff 
b 

7040.49 

1898.00 

454.72 

400.00 

10215.21 

Acctis  chargi  ii  1100.00  par  lint. 

Conniction  chargt  ii  1120.00  par  Una. 

Total  connaction  charga  for  thii  cmfiguration  it  I  720.00. 

Niniaua  uiaga  charga  is  t  75.00  par  Una  axcluiiva  of  accass  chargas. 

Fieur©  3- 


Page  No.  1 
12/23/85 


801  ON-NET/  201  OFF-NET 

SPRINT  OUT  HATS 
HONTHLV  COST  SUHHARY 


8 

DAY 

EVE 

NIGHT 

A 

1 

HRS/ 

DAY 

HRS/ 

EVE 

HRS/ 

NIGHT 

ACCESS 

TOTAL 

N  LNS 

0 

LINE 

(4) 

LINE 

(41 

LINE 

(41 

(4) 

(4) 

1 

2 

45.00 

1277.48 

12.00 

2i0.21 

5.00 

63.16 

150.00 

1750.85 

3 

1 

89.00 

1171.88 

45.00 

511.20 

12.00 

80.06 

75.00 

1838.14 

5 

3 

123.00 

5055.71 

33.00 

1179.88 

26.00 

539.91 

225.00 

7000.50 

•*i  Total  ft* 

6 

7505.07 

1951.29 

683.13 

450.00 

10589.49 

Acctis  charge  if  I  75,00  per  line. 

Connection  charge  if  I  75.00  per  line. 

Total  connection  charge  Tor  thit  configuration  it  t  450.00. 
Figure  3“ 


12/23/8S 


8B8  8KYLIIC  OUT  MTS 
MNT)a.y  COST  SUMMY 


• 

TIER  I  LINES 

BAY 

MS/ 

LINE 

MY 

(S) 

OTHER 

HRS/ 

LINE 

OTHER 

II) 

TOTAL 

II) 

1  65  6 

59.37 

4511.63 

29.03 

1149.72 

sai.3s 

2  20  6 

1S.27 

1323.66 

1.93 

411.01 

1941.74 

3  10  6 

9.13 

929.19 

4.47 

211.72 

1210.91 

4  5  6 

•**  Total  at# 

4.57 

414.7S 

2.23 

131.86 

544.64 

100 

91.33 

7379.26 

44.67 

1901.38 

9360.64 

Acciit  chargi  ii  tlOO.OO  pir  lini. 

Total  oonthly  icctii  cbargi  Tor  tbit  configurition  it  t  bOO.OO. 

Hiniaui  utagi  cbargi  it  1400.00  if  aviragi  uti  it  Itii  than  30  houri/lini. 
Total  aontbly  cost  for  tbit  configuration  it  $  9960.i4. 

Conniction  chargis  pir  lini  an  band  on  tbi  diitanci  bitwin  your 
ixchangt  carriir  uiri  cintir  and  tbi  SBS  Skylini  MTS  acciit  point. 


DISTANCE 
0-1  oili 
2-15  oilti 
16*25  oil It 
26-35  oilit 
36*50  oilii 


12/23/85 

OUT  HATS 

nONTHLY  COST  COHPARISON 
BY  BAND 


DAY 

EVE 

NI6HT 

AT6T 

HCI 

SPRINT 

1 

HRS/ 

HRS/ 

HRS/ 

TOTAL 

TOTAL 

TOTAL 

BAND  LINES 

LINE 

LINE 

LINE 

(4) 

(I) 

(4) 

1 

2 

45.00 

12.00 

5.00 

1B65.02 

1653.44 

1750. B5 

3 

1 

B9.00 

45.00 

12.00 

1985. B2 

1764.52 

1B3B.14 

5 

3 

123.00 

33.00 

26.00 

7555. BO 

6797.25 

7000.50 

•t»  Total  #»* 

6  11406.64  10215.21  105B9.49 

SBS  Skyline  total  aonthly  cost  it  I  9960.64. 


Figure 


1 


12/23/05 


ATIT  IN  HATS 
NMTHLY  COST  SUmARY 


B  DAY  EVE  NIGHT 


A  1 

HRS/ 

DAY 

HRS/ 

EVE 

HRS/ 

NIBHT 

ACCESS 

N  LNS 

D 

LIIE 

(4) 

LINE 

(4) 

LINE 

(4) 

(4) 

(4) 

5  1  67.00 

***  Total  *»» 

1147.00  2.00 

25.60  2.00 

13.66 

37.65 

1224.71 

1 

1147.00 

25.60 

13.66 

37.65 

1224.71 

Access  charge  is  i  42.60  per  line. 

Connection  charge  is  4222.00  Tor  the  Tirst  line  and 
4123.00  Tor  each  successive  line. 

Total  connection  charge  Tor  this  conTiguration  is  4  345.00. 


Figure 


2 


-1-  DISPLAY  RESULTS  ON  SCREEN 
-2-  PRINT  OUT  THE  RESULTS 

-0-  FINISHED 

CHOOSE  ONE; 


FIGURE 


FIGURE 


39 


I 


» 


Filenames  can  have  up  to  eight  letters  and/or  numbers, 
must  begin  with  a  letter,  and  can  have  no  imbedded 
blanks . 


•  EXISTING  FILENAMES  ARE: 

!  ONE. DBF  TWO. DBF  THREE. DBF  FOUR. DBF 


18432  bytes  in  4  files. 

123904  bytes  remaining  on  drive. 


ENTER  FILENAME  WHERE  RESULTS  ARE  TO  BE  STORED;  FIVE 


figure  3-36 


MAIN  MENU 


-  1  -  determine  least  cost  WATS  CARRIER  FOR  CURRENT  NETWORK 

-  2  -  OPTIMIZE  CURRENT  NETWORK  FOR  WATS  CARRIER 

-  3  -  LOAD  NEW  CARRIER  RATE  TABLES 

-  4  -  VIEW  EXISTING  RESULT  FILES 

-  5  _  DELETE  EXISTING  FILE 


-  0  -  FINISHED 


CHOOSE  ONE; 


FIGURE  3-37 


Option  2  -  Optimize  Current  Network  for  WATS  Carrier 


Upon  selecting  this  option,  the  screen  appears  as 
in  Fig.  3-38.  The  default  again  is  "N"  with  any  response 
other  than  returning  to  the  main  menu.  In  Fig.  3-39 
the  screen  displays  the  current  configuration  files  which 
already  exist  so  the  user  can  pick  one.  If  the  user 
changes  his  mind  and  doesn’t  want  any  of  the  files 
listed,  he  can  press  <Return>  to  return  to  the  main  menu. 
After  a  file  is  selected  as  in  Fig.  3-40,  Fig.  3-41  will 
appear  on  the  screen  if  the  configuration  has  outgoing 
WATS  lines. 

Data  for  each  WATS  band  is  entered  just  as  in 
Option  1  .  The  computer  will  compute  the  grade  of  service 
for  each  of  the  existing  trunks  and  display  the  results 
as  in  Fig.  3-42.  The  user  can  now  optimize  his  network 
for  the  existing  grade  of  service  or  choose  his  own.  A 
value  less  than  1  or  greater  than  50  will  not  be 
accepted.  If  attempted.  Fig.  3-43  will  appear.  Once  a 
valid  grade  of  service  is  entered.  Fig.  3-44  followed  by 
3-45  will  appear.  This  will  appear  for  each  band  through 
the  highest  band  trunk  in  the  configuration.  After  data 
for  the  last  band  is  entered,  the  screen  will  be  similar 
to  Fig.  3-46. 

When  computations  to  optimize  the  configuration 


begin.  Fig.  3-47  will  appear.  The  time  displayed  will 
vary  from  a  minimum  of  5  minutes  for  only  band  1  trunks 
to  a  maximum  of  one  hour  for  band  6  trunks. 


If  the  configuration  has  incoming  WATS  lines, 
screens  similarly  will  appear  as  shown  is  Figs.  3-48 
through  3-51.  Maximum  time  in  Fig.  3-51  is  30  minutes 
for  band  6  trunks.  After  all  computations  are  complete, 
the  results  are  stored  and  Fig.  3-52  appears  to  select 
output . 


OPTIMIZE  CURRENT  NETWORK 

This  option  will  determine  the  number  of  trunks  you  need 
for  each  band  in  your  network  optimized  for  least  cost 
for  each  carrier.  Information  is  utilized  from  the 
present  network  which  was  entered  in  option  <1>  DETERMINE 
LEAST  COST  WATS  CARRIER.  To  optimize  your  network 
requires  a  call  recording  device  on  each  of  your  WATS 
lines  to  determine  your  actual  calling  patterns.  You 
must  provide  the  busy  hour  traffic  for  each  WATS  band. 

Also,  you  must  provide  the  "P"  value  required  for  your 
lines.  A  value  of  "PIO”  means  that  during  the  busy  hour, 
10  percent  of  the  calls  attempted  will  receive  a  busy 
signal  on  the  first  attempt.  The  lower  the  "P”  value, 
the  better  the  availability  of  lines;  however,  it 
requires  more  trunks  at  a  higher  expense.  The  default 
value  is  the  highest  "P"  value  of  your  present  network. 


DO  YOU  WISH  TO  CONTINUE  WITH  THIS  OPTION  (Y/N)?  N 
_ FIGURE  3-38 _ 


EXISTING  RESULT  FILES  ARE; 


ONE. DBF  TWO. DBF  THREE. DBF  FOUR. DBF 

20480  bytes  in  4  files. 

121856  bytes  remaining  on  drive. 


CHOOSE  ONE; 


EXISTING  RESULT  FILES  ARE: 

ONE. DBF  TWO. DBF  THREE. DBF  FOUR. DBF 

20480  bytes  in  4  files. 

121856  bytes  remaining  on  drive. 

CHOOSE  ONE: 


FIGURE  3-40 


ENTER  TOTAL 
EACH  BAND: 

PEAK  HOUR  OUT  WATS  TRAFFIC  IN  MINUTES  FOR 

BAND1 : 

0.0 

BAND2 : 

0.0 

BAND3 : 

0.0 

BAND4: 

0.0 

BAND5: 

0.0 

FIGURE  3-41 


ENTER  TOTAL 

PEAK  HOUR  OUT  WATS 

TRAFFIC  IN 

I  MINUTES 

FOR 

EACH  BAND: 

BAND1 : 

65.0 

BAND1 

TRUNKS: 

P30 

BAND2 : 

10.0 

BAND3 

TRUNKS: 

P34 

BAND3 ; 

15.0 

BAND5 

TRUNKS: 

P20 

BAND4: 

40.0 

BAND 5: 

50.0 

PRESS  RETURN  KEY  TO  USE  DEFAULT  "P"  VALUE  OR  ENTER  YOUR 
OWN:  34 

3-42 _ 


FIGURE 


43 


ENTER  TOTAL 
EACH  BAND: 

PEAK  HOUR 

OUT  WATS  TRAFFIC  IN  MINUTES 

FOR 

BAND1 : 

65.0 

BAND1  TRUNKS: 

P30  1 

BAND2 : 

10.0 

BAND3  TRUNKS: 

P34  J 

BAND3 : 

15.0 

BAND5  TRUNKS: 

P20 

BAND4: 

40.0 

1 

i 

h 

BAND5 : 

50.0 

i 

> 

« 

PRESS  RETURN  KEY  TO  USE  DEFAULT  "P"  VALUE  OR  ENTER  TOUR 
OWN:  34 

"P"  VALUE  MUST  BE  1  THRU  50.  REENTER  VALUE. 

_ FIGURE  3-43 _ 

ENTER  TOTAL  PEAK  HOUR  OUT  WATS  TRAFFIC  IN  MINUTES  FOR 
EACH  BAND: 


BAND1  : 

65.0 

BAND1 

TRUNKS : 

P30 

BAND2 : 

10.0 

BAND3 

TRUNKS: 

P34 

BAND3 : 

15.0 

BAND5 

TRUNKS: 

P20 

BAND4: 

40.0 

BAND5 : 

50.0 

PRESS  RETURN  KEY  TO  USE  DEFAULT  "P"  VALUE  OR  ENTER  YOUR 
OWN:  34 


"P"  VALUE  MUST  BE  1  THRU  50.  REENTER  VALUE 
Press  any  key  to  continue... 


44 


ENTER  ACTUAL  MEASURED  TRAFFIC  IN  HOURS  PER  MONTH! 
BAND1 ; 

DAI; 

EVENING: 

NIGHT/WEEKEND: 


FIGURE  3- 


ENTER  ACTUAL  MEASURED  TRAFFIC  IN  HOURS  PER  MONTH 

BAND5 : 

DAY; 

69.00 

EVENING ; 

19.00 

NIGHT/WEEKEND; 

8.00 

Press  any  key  to  continue,.. 

FIGURE  3-46 

ENTER  TOTAL  PEAK  HOUR  IN  WATS  TRAFFIC  IN  MINUTES  FOR  EACH 
BAND: 


BAND1:  5.0  BANDS  TRUNKS:  P40 

BAND2 :  5.0 

BAND3 :  5.0 

BAND4:  5.0 

BANDS:  10.0 

PRESS  RETURN  KEY  TO  USE  DEFAULT  "P"  VALUE  OR  ENTER  YOUR 
OWN:  40 


FIGURE  3-48 


ENTER  TOTAL  PEAK  HOUR  IN  WATS  TRAFFIC  IN  MINUTES  FOR  EACH 
BAND: 


BAND1 : 

5.0 

BAND2 : 

5.0 

BAND3 ; 

5.0 

BAND4: 

5.0 

BANDS : 

10.0 

BANDS  TRUNKS :  P40 


PRESS  RETURN  KEY  TO  USE  DEFAULT  "P"  VALUE  OR  ENTER  YOUR 
OWN:  40 

Press  any  key  to  continue... 


FIGURE 


ENTER  ACTUAL  MEASURED  TRAFFIC  IN  HOURS  PER  MONTH; 


BANDS 


EVENING 

NIGHT/WEEKEND 


10.00 

0.25 

0.25 


Press  any  key  to  continue... 


FIGURE  3-50 


TAKE  A  15  MINUTE  BREAK  WHILE  I  DO  SOME  WORK. 


FIGURE  3-51 


H' 

A'’ 

!:< 


I 

If 

8 


§ 


i 


I 


Suboption  1  -  Display  Results  on  Screen 

Fig.  3-53  Is  displayed  followed  by  Figs.  3-55 
through  3-59*  The  grade  of  service  Is  Included  In  the 
heading  of  each  report.  The  data  used  to  optimize  the 
configuration  Is  Included  In  the  last  reports  for 
outgoing  and  Incoming  WATS  carriers. 

Suboption  2  -  Print  Out  the  Results 

Fig.  3-54  Is  displayed  followed  by  the  printing 
of  Figs.  3-55  through  3-59* 

Suboption  0  -  Finished 

The  program  returns  to  the  main  menu  as  In  Fig. 

3-60. 


OPTIMIZED  RESULTS 


A  report  summary  will  be  displayed  for  each  carrier. 
The  display  will  wait  between  reports.  Press  <Ctrl><S> 
to  stop  the  scrolling.  Press  <Ctrl><S>  again  to  resume. 


Press  any  key  to  continue... 


Pigi  No.  1  OPTIttIZED  COHFI&URATION;  P20 

12/23/85 

AT&T  OUT  HATS 
MONTHLY  COST  SUMMARY 

B  DAY  EVE  NI6HT 


A  1 

HRS/ 

DAY 

HRS/ 

EVE 

HRS/ 

NIGHT 

ACCESS 

TOTAL 

N  LNS 

D 

LINE 

(1) 

LINE 

(t) 

LINE 

U) 

(1) 

(I) 

4  4  119.75 

7164.14 

37.25 

1710.46 

23.00 

603.52 

150.60 

9628.72 

5  3  23.00 

eta  Total  *** 

1306.53 

6.33 

243.07 

2.67 

54.71 

112.95 

1717.26 

7 

8470.67 

1953.53 

658.23 

263.55 

11345.98 

Accifs  chargi  it  I  37.65  par  lint. 

Conntction  charge  ii  1222.00  Tor  the  Tirst  line  and 
tl23.00  Tor  each  succetiive  line. 

Total  connection  charge  Tor  this  conTiguration  is  $  960.00. 


Figure 


OPTIHIZES  CQNFI6URATI0N:  P20 
(  BOX  ON'HET/  201  OFF-NET) 


>2/23/85 


SPRINT  OUT  NATS 
NONTHLY  COST  SUHNARY 


B 

DAY 

EVE 

NI6HT 

A 

• 

HRS/ 

DAY 

HRS/ 

EVE 

HRS/ 

NIGHT 

N  LNS 

0 

LINE 

II) 

LINE 

It) 

LINE 

(1) 

(1) 

1 

5 

18.00 

1311.84 

4.80 

260.21 

2.00 

63.16 

1635.21 

2 

5 

16.00 

1176.48 

8.00 

436.08 

63.60 

1676.16 

3 

5 

137.38 

1.00 

56.80 

13.34 

4 

5 

60.00 

4345.40 

16.00 

938.08 

14.00 

472.50 

5755.98 

5 

5 

13.80 

1110.08 

3.80 

226.44 

1.60 

55.37 

1391.89 

fif 

Total  ssf 

8081.18 

1917.61 

667.97 

10666.76 

Acciii  chirgi  it  t  75.00  pir  lint. 

Total  aonthly  acciis  chargi  for  thif  configuration  if  I  375.00. 

Conntction  chargi  ii  t  75.00  pir  lini. 

Total  conniction  chargi  for  this  configuration  it  I  375.00. 

Total  oonthly  cost  for  this  configuration  is  I  11041.76. 


Figure 


P*gi  No. 
12/23/85 


OPTIHIZEO  CONFIGURATION;  P20 

8BS  SKYLINE  OUT  NATS 
HONTHLY  COST  SUNHARY 


t 

DAY 

HRS/ 

DAY 

OTHER 

HRS/  OTHER 

TOTAL 

TIER  1  LINES 

LINE 

($) 

LINE 

($) 

($) 

1  65 

5 

71.24 

4430.42 

34.84 

1149.72 

5580.14 

2  20 

5 

21.92 

1494.07 

10.72 

418.08 

1912.15 

3  10 

5 

10.96 

912.42 

5.36 

276.74 

1189.16 

4  5 

5 

5.48 

406.56 

2.68 

129.20 

535.76 

a««  Total 

100 

Iff 

109.60 

7243.47 

53.60 

1973.74 

9217.21 

Acceis  charge  is  $100.00  per  line. 

Total  eonthly  access  charge  for  this  configuration  is  $  500,00, 

Niniiui  usage  charge  is  $400.00  if  average  use  is  less  than  50  hours/line. 
Total  eonthly  cost  for  this  configuration  is  $  9717.21. 

Connection  charges  per  line  are  based  on  the  distance  betueen  your 
exchange  carrier  wire  center  and  the  SBS  Skyline  NATS  access  point. 


DISTANCE 
0-1  aile 
2-15  tiles 
16-25  tiles 
26-35  tiles 
36-50  tiles 


OUT  NATS 

BUSY  HOUR  TRAFFIC 
(Hinutes) 


OUT  NATS 
HONTHLY  TRAFFIC 
(Hours) 


DAY 

EVENING 

NI6HT/HEEKEND 

BAND  1 

65.0 

90.00 

24.00 

10,00 

BAND  2 

10.0 

80.00 

40.00 

10.00 

BAND  3 

15.0 

9.00 

5.00 

2.00 

BAND  4 

40.0 

300.00 

80.00 

70.00 

BAND  5 

50.0 

69.00 

19.00 

B.OO 

Figure 


rage  No.  1 

12/23/85 


OPTiniZED  C0NFI6URATIDN;  P20 


Am  IN  NATS 
HONTHLY  COST  SUHNARY 


B  DAY 

A  t  HRS/ 

N  LNS  LINE 

0 


»t«  Total  »** 
2 


EVE 

NI6HT 

DAY 

HRS/ 

EVE 

HRS/ 

NI6HT 

ACCESS 

(4) 

LINE 

(4) 

LINE 

(4) 

(4) 

1142.55 

1.00 

25.80 

1.00 

17.06 

85.60 

1142.55 

25.80 

17.06 

85.60 

Access  charge  is  I  42.80  per  line. 

Connection  charge  is  1222.00  for  the  First  line  and 
4123.00  For  each  successive  line. 

Total  connection  charge  for  this  configuration  is  t  468.00. 


IN  NATS 

IN  HATS 

BUSY  HOUR  TRAFFIC 

HONTHLY  TRAFFIC 

(Ninutes) 

(Hours) 

DAY 

EVENIN6  NI6HT/NEEKEND 

BAND  1 

5.0 

27.00 

1.00 

1.00 

BAND  2 

5.0 

10.00 

0.25 

0.25 

BAND  3 

5.0 

10.00 

0.25 

0.25 

BAND  4 

5.0 

10.00 

0.25 

0.25 

BAND  5 

10.0 

10.00 

0.25 

0.25 

Figure  3-1 


•  «  a  ^  .  *  .  e".  •  \ 


53 


MAIN  MENU 

-  1  -  DETERMINE  LEAST  COST  WATS  CARRIER  FOR  CURRENT  NETWORK 

-  2  -  OPTIMIZE  CURRENT  NETWORK  FOR  WATS  CARRIER 

-  3  -  LOAD  NEW  CARRIER  RATE  TABLES 

-  4  -  VIEW  EXISTING  RESULT  FILES 

-  5  -  DELETE  EXISTING  FILE 

-  0  -  FINISHED 

CHOOSE  ONE: 


FIGURE  3-60 


Option  3  -  Load  New  Carrier  Rate  Tables 


Screen  displays  are  shown  In  Figs.  3-61  through 
3-64.  In  Fig.  3-64»  the  response  should  be  "I"  and  press 
<Return>.  This  erases  the  rate  tables  from  the  dBASE  III 
disk  which  was  used  as  a  temporary  storage  place. 


LOAD  NEW  CARRIER  RATE  TABLES 


This  option  will  load  new  carrier  rate  tables  onto  the 
OPTICOM  program  as  well  as  any  new  parameters  such  as 
access  charges,  connection  charges,  minimum  billed,  etc. 
WARNING!  OLD  TABLES  AND  PARAMETERS  WILL  BE  ERASED.  IF 
YOU  DESIRE  TO  SAVE  THE  OLD  TABLES  OR  RUN  DATA  USING  THE 
OLD  TABLES,  BE  SURE  TO  MAKE  A  COPY  OF  THIS  DISK  BEFORE 
PROCEEDING. 


DO  YOU  WISH  TO  CONTINUE  WITH  THIS  OPTION  (Y/N)?  N 


FIGURE  3-61 


WHICH  DRIVE  IS  OPTICOM  PROGRAM  ON  (A/B/C/D)? 
WHICH  DRIVE  IS  DBASE  III  ON  (A/B/C/D)? 


FIGURE  3-62 
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WHICH  DRIVE 


IS  OPTICOM  PROGRAM  ON  (A/B/C/D)?  B 


WHICH  DRIVE  IS 


DBASE  III  ON  (A/B/C/D)?  A 


REMOVE  OPTICOM  FLOPPY  FROM  DRIVE  B  AND  INSERT  FLOPPY 
WITH  UPDATED  TABLES. 

Press  any  key  to  continue... 


B;  TABLES 
B:  TABLES 
B;  TABLES 
B:  TABLES 
B;  TABLES 
B:  TABLES 
B:  TABLES 

B:  TABLES 
B:  TABLES 


AT&TOUT.DBF 

AT&TIN.DBF 

SPRNTOUT.DBF 

SBSOUT.DBF 

MCIODT.DBF 

SBSIN.DBF 

SBSCONEC.DBF 

7  Flle(s)  copied 

CONST ANT. MEM 

DATE. MEM 

2  File(s)  copied 


FIGURE  3-63 


INSERT  FLOPPY  WITH  OPTICOM  PROGRAM  IN  DRIVE  B. 
Press  any  key  to  continue... 


A 

A 

A 

A 

A 

A 

A 

A 

A 


TABLES  AT&TOUT.DBF 
TABLES  AT&TIN.DBF 
TABLES  SPRNTOUT.DBF 
TABLES  SBSOUT.DBF 
TABLES  MCIOUT.DBF 
TABLES  SBSIN.DBF 
TABLES  SBSCONEC.DBF 
TABLES  CONST ANT. MEM 
TABLES  DATE. MEM 

9  File(s)  copied 


Are  you  sure  (Y/N)? 
_ FIGURE  3-64 
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Option  4  -  View  Existing  Results  Files 

Fig.  3-65  shows  the  screen  display  which  includes 
the  selection  made.  Again,  press  the  <Return>  key  rather 
than  make  an  entry  and  you  will  return  to  the  main  menu. 
Fig.  3-52  will  appear  in  order  to  choose  the  appropriate 
output. 

Suboption  1  -  Display  Results  on  Screen 

Figs.  3-16  through  3-23  apply.  If  the 

configuration  has  previously  been  optimized,  Figs.  3-53 
and  3-55  through  3-59  will  follow.  After  completion. 
Fig.  3-52  will  appear. 

Suboption  2  -  Print  Out  the  Results 

Figs.  3-25  and  3-27  through  3-32  apply.  If 
previously  optimized.  Figs.  3-54  through  3-59  will 
,  follow.  Fig.  3-52  completes  this  choice. 

I 

Suboption  0  -  Finished 

The  screen  returns  to  the  main  menu  as  in  Fig. 

3-60. 


EXISTING  RESULT  FILES  ARE; 

ONE. DBF  TWO. DBF  THREE. DBF  FOUR. DBF 

FIVE. DBF 

20480  bytes  in  5  files. 

101376  bytes  remaining  on  drive. 

DO  YOU  WISH  TO  SEE  ANY  OF  THESE  FILES  (Y/N)?  Y 
CHOOSE  ONE: FIVE 


Option  5  -  Delete  Existing  File 

Figure  3-66  shows  the  screen  display  along  with 
the  responses.  When  complete,  the  program  returns  to  the 
main  menu. 


Option  0  -  Finished 

This  exits  the  OPTICOM  program  and  returns  to 
the  dBASE  III  dot  (.)  prompt  as  In  Fig.  3-1* 


EXISTING  RESULT  FILES  ARE: 

ONE. DBF  TWO. DBF  THREE. DBF  FOUR. DBF 

FIVE. DBF 

20480  bytes  In  5  files. 

101376  bytes  remaining  on  drive. 

DO  YOU  WISH  TO  DELETE  ANY  OF  THESE  FILES  (Y/N)?  Y 

CHOOSE  ONE:  FIVE 


FIGURE  3-66 
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CHAPTER  IV 


DECISION  MAKING  WITH  THE  PROGRAM 

Figures  4*-1  through  4-6  show  the  results  from 
actual  data  obtained  for  Lowry  Air  Force  Base,  Colorado 
for  its  WATS  lines  during  the  period  of  July  1985* 
Detail  call  recording  devices  are  not  used  on  the  lines 
so  an  optimization  could  not  be  performed;  however, 
looking  at  the  current  network  output  gives  valuable 
information.  Traffic  patterns  do  not  fluctuate 
radically  from  month  to  month  so  this  can  be  used  as  a 
representative . 

As  can  be  seen  in  Fig.  4-5,  approximately  $1500 
per  month  could  be  saved  just  by  switching  from  AT&T  to 
SPRINT  as  the  long  distance  carrier.  The  connection 
charge  of  $1125  would  be  saved  in  less  than  one  month. 
First  year  savings  would  be  $16,875.  If  detail  traffic 
information  were  available,  the  network  could  be 
optimized  for  further  possible  savings.  For  example. 
Fig.  4-1  shows  five  band  5  lines  with  low  usage  of  19»06 
hours/line.  It  may  be  more  cost  effective  to  eliminate 
these  and  pass  the  traffic  over  the  band  6  lines.  Only 
an  optimization  will  show  this.  There  are  also  possible 


savings  in  Fig.  4-6  on  the  nine  high  usage  band  5  lines 
through  adding  lower  band  lines. 

OPTICOM  can  be  especially  valuable  for  "what  if" 
situations.  The  cost  of  projected  requirements  are 
immediately  available  along  with  the  least  expensive 
carrier  and  configuration.  As  Chapter  3  showed,  the 
grade  of  service  of  the  current  network  is  determined  to 
help  the  user  ensure  his  service  is  adequate.  If  the 
user  is  dissatifled  with  his  grade  of  service,  the 
optimization  will  tell  him  the  cost  of  changing  it. 


Am  OUT  HATS 
HQNTHLY  COST  SUHHARY 


V*J 


1 

1  • 

DAY 

HRS/ 

DAY 

EVE 

HRS/ 

EVE 

NI6HT 

HRS/ 

NIBHT 

ACCESS 

TOTAL 

1  LNS 

1 

LINE 

(1) 

LINE 

(II 

LINE 

(1) 

(1) 

(1) 

i  1 

79.50 

1339.47 

5.90 

75.52 

13.30 

90.84 

37.45 

1543.48 

i  2 

77.30 

2411.81 

8.50 

217.40 

11.00 

150.24 

75.30 

3054.97 

1  S 

7B.44 

4417.02 

9.82 

428.48 

10.18 

347.45 

188.25 

7781.40 

i  S 

19.04 

1832.41 

0.00 

0.00 

1.80 

41.47 

188.25 

2082.13 

1  2 

4.20 

294.34 

0.05 

1.55 

0.30 

5.02 

75.30 

378.23 

It#  Total  ass 
15 

12497.27 

923.15 

455.24 

544.75 

14840.41 

Accm  ch«rgt  it  I  37.S5  ptr  lint. 

Conntction  chirgi  it  1222.00  for  tht  first  line  and 
tl23.00  for  each  tuccestive  line. 

Total  conntction  charge  for  this  configuration  is  11944.00. 

Figure  4-1  _ 
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Page  No. 

12/23/B5 


801  QN-NET/  202  OFF-NET 

NCI  OUT  NATS 
HONTHLY  COST  SUHNARY 


B 

DAY 

EVE 

NI6HT 

A 

1 

HRS/ 

DAY 

HRS/ 

EVE 

HRS/ 

NI6HT 

ACCESS 

TOTAL 

N  LNS 

0 

LINE 

(4) 

LINE 

(» 

LINE 

It) 

(1) 

It) 

S 

1 

79.  SO 

1101.37 

5.90 

74.14 

13.30 

88.84 

100.00 

1364.35 

5 

2 

77.30 

2144.70 

8.50 

213.62 

11.00 

146.96 

200.00 

2705.28 

S 

5 

78.44 

S436.9S 

9.82 

616.99 

10.18 

340.02 

500.00 

6893.96 

5 

S 

19.06 

1485.49 

0.00 

0.00 

1.80 

60.12 

500.00 

2045.61 

A 

2 

6.20 

200,22 

0.05 

1.25 

0.30 

4.01 

200.00 

405.48 

eee  Total  •»« 

IS 

1036B.73 

906.00 

639.95 

1500.00 

13414.68 

Accki  charge  ii  1100.00  per  line. 

Connection  charge  ii  1120.00  per  line. 

Total  connection  charge  for  this  configuration  is  tlBOO.OO. 

Niniaue  usage  charge  is  I  7S.00  per  line  exclusive  of  access  charges. 

Figure  4-2 


Pagt  No. 
12/23/85 


802  ON-NET/  20Z  OFF-NET 

SPRINT  OUT  NATS 
HONTHLY  COST  SUHHARY 


8 

DAY 

EVE 

NIGHT 

A 

• 

HRS/ 

DAY 

HRS/ 

EVE 

HRS/ 

NIGHT 

ACCESS 

TOTAL 

N 

D 

LNS 

LINE 

(t) 

LINE 

(«l 

LINE 

(f) 

if) 

5 

1 

79.50 

1123.75 

5.90 

70.32 

13.30 

92.06 

75.00 

1361.13 

5 

2 

77.30 

2194.49 

8.50 

202.61 

11.00 

152.29 

150.00 

2699.39 

5 

5 

78.44 

5554.91 

9.82 

585.17 

10.18 

352.33 

375.00 

6867.41 

5 

5 

19.06 

1533.19 

0.00 

0.00 

1.80 

62.30 

375.00 

1970.49 

i 

2 

6.20 

234.58 

0.05 

1.31 

0.30 

4.26 

150.00 

390.15 

***  Total  a»a 

15 

10640,92 

859.41 

663,24 

1125.00 

13288.57 

Acctis  charge  is  I  75.00  per  line. 

Connection  charge  is  I  75,00  per  line. 

Total  connection  charge  Tor  this  configuration  is  tll25.00. 
Fisrure  4- 


0 


12/23/B5 


SBS  SKYLINE  OUT  NATS 
MONTHLY  COST  SUNNARY 


t 

DAY 

HRS/ 

DAY 

OTHER 

HRS/ 

OTHER 

TOTAL 

TIER  X  LINES 

LINE 

($) 

LINE 

($) 

($1 

1  65 

15 

31. SI 

67S1.S0 

7.2S 

720.29 

7501.79 

2  20 

15 

9.79 

2279.51 

2.24 

261.92 

2541.43 

3  10 

15 

4.S9 

1370.52 

1.12 

194.43 

1564.95 

4  5 

15 

2.45 

616.56 

0.56 

91.67 

70B.23 

i*s  Total 

fH 

100 

4B.93 

ii04B.09 

11.19 

126B.31 

12316.40 

Acccit  charge  is  $100.00  per  lint. 

Total  lonthly  access  charge  Tor  this  configuration  it  $1500.00. 

Ninieue  usage  charge  it  $400.00  if  average  use  is  lets  than  50  hourt/lint. 
Total  eonthly  cost  for  this  configuration  is  $  13Bli.40. 

Connection  charges  per  line  are  based  on  the  distance  betueen  your 
exchange  carrier  uirt  center  and  the  SBS  Skyline  HATS  access  point. 


OISTiWCE 

COST 

O-I 

■ile 

S5.00 

2-15 

tiles 

100.00 

16-25 

tiles 

125.00 

26-35 

tiles 

150.00 

36-50 

tiles 

175.00 

12/23/85 

OUT  NATS 

flONTHLY  COST  COHPARISON 
BY  BAND 


DAY 

EVE 

NI6HT 

ATAT 

NCI 

SPRINT 

1 

HRS/ 

HRS/ 

HRS/ 

TOTAL 

TOTAL 

TOTAL 

BAND  LINES 

LINE 

LINE 

LINE 

(t) 

(1) 

(t) 

5 

1 

79.50 

5.90 

13.30 

1543. A8 

13A4.35 

1361.13 

5 

2 

77.30 

B.50 

11.00 

3054.97 

2705.28 

2699.39 

5 

5 

7B.44 

9.B2 

10.18 

7781.40 

6893. 9A 

6867.41 

5 

5 

19.0& 

0.00 

1.80 

2082.13 

2045.61 

1970.49 

i 

2 

A.  20 

0.05 

0.30 

378.23 

405.48 

390.15 

a*a  Total 

atf 

IS 

14840.41 

13414.68 

13288.57 

SBS  Skyline  total  lontAiy  cost  if  I  i3Bl6,40. 
_ Figure  4-5 


rige  no. 
12/23/S5 


Am  IN  NATS 
HQNTHLY  COST  SUNHARY 


B 

A  1 

DAY 

HRS/ 

DAY 

EVE 

HRS/ 

EVE 

NI6HT 

HRS/ 

NI6HT 

ACCESS 

TOTAL 

N  LNS 

D 

LINE 

($) 

LINE 

($) 

LINE 

($) 

(1) 

($) 

S  i 

104.22 

9527.25 

0.97 

75.08 

14.67 

750.81 

256.80 

10609.94 

5  9 

150.47 

19747.91 

0.07 

8.13 

12.51 

960.39 

385.20 

21101.63 

&  2 

3.15 

135.45 

0.00 

0.00 

0.10 

2.07 

85.60 

223.12 

aia  Total 

17 

29410.  M 

83.21 

1713.27 

727.60 

31934.69 

Accim  chirgi  it  I  42.60  ptr  lini. 

Conniction  chirgt  ii  1222.00  for  the  first  line  and 
tl23.00  for  each  successive  line. 

Total  connection  charge  for  this  configuration  is  $2313.00. 
Figure  4-6 
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CHAPTER  V 


CONCLUSION 

OPTICOM  is  a  valuable  tool  to  be  used  by  a 
business  or  government  agency  to  optimize  its  long 
distance  WATS  service  for  least  cost.  The  program  as 
originally  written  uses  the  rate  tables  for  Colorado. 

Using  the  program  elsewhere  requires  loading  the  rate 

tables  for  the  appropriate  state.  For  a  small 

organization  in  a  few  states,  this  can  be  done  manually 
using  the  format  of  files  in  Appendix  C.  If  the 
organization  has  multiple  locations  in  the  state,  the 
tables  can  be  put  on  a  single  floppy  disk,  duplicated, 
and  distributed  to  each  location  for  updating  the 
program. 

This  would  not  be  cost  effective  for  an 
organization  that  had  many  locations  but  only  one  or  two 
in  each  state.  Manual  loading  of  50  different  tables 
each  time  there  was  an  update  would  be  too  time 

consuming.  In  this  case  the  OPTICOM  program  could  be 
modified  to  include  the  full  nation-wide  rate  table  and  a 
configuration  option  to  choose  the  state.  For  example, 
the  program  would  ask  "Which  state  do  you  want  the 
program  configured  for?"  The  response  would  be  a  two 


letter  abbreviation  for  the  state.  The  program  would 
then  select  the  subset  of  the  nation-wide  rate  table 
which  applied  to  that  state. 

As  currently  written,  OPTICOM  requires  the  user 
to  already  own  dBASE  III  software.  dBASE  III  cannot  be 
duplicated  so  each  location  would  be  required  to  own  a 
copy  at  approximately  $370  through  mail  order  sources. 
If  dBASE  III  is  not  required  at  those  locations  for  any 
other  uses,  there  is  a  cheaper  alternative.  dBASE  III 
compilers  are  now  available  for  $500  to  $750  through  mall 
order.  The  OPTICOM  program  could  be  compiled,  then 
copied  and  distributed  to  locations.  The  only 
maintenance  required  would  be  periodic  (every  six  months) 
distribution  of  new  rate  table  floppies  at  a  cost  of  $5. 
The  original  manual  load  of  the  new  tables  would  take  a 
person  about  1/2  day.  Sources  for  dBASE  III  software  and 
compilers  are  provided  in  Table  5-1 . 
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APPENDIX  A 


OPTICOM  PROGRAM  FLOWCHARTS 

This  appendix  contains  a  hierarchical  represen¬ 
tation  of  program  module  dependencies  along  with  a 
description  of  each  module. 


FIGURE  A-1 .  Program  Helrarchy  Level  1 . 


FIGURE  A-2.  Program  Hierarchy  Level  2,  NOWNET. 


FIGURE  A-3.  Program  Hierarchy  Level  3»  NOWNET. 
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FIGURE  A-4.  Program  Hierarchy  Level  4»  NOWNET. 
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FIGURE  A-6.  Program  Hierarchy  Levels  3  and  4>  NEWNET. 


FIGURE  A-8.  Program  Hierarchy  Levels  3  and  4»  RESULTS 


Module  Descriptions 
/DELETE/  Directory  Modules 

1.  DELETE. PRG  -  Controls  removal  of  files  containing 
results  of  network  configuration  costs  and 
optimizations . 

/NEWNET/  Directory  Modules 


1 . 

AT&TIN.PRG 

-  Calculates 

the  cost  of 

each 

configuration 

possible 

for 

the 

Incoming 

WATS 

traffic  in 

order  to 

find 

the 

optimum 

AT&T 

solution. 

2. 

AT&TOUT.PRG  - 

Calculates 

the 

cost  of 

each 

configuration 

possible 

for 

the 

outgoing 

WATS 

traffic  in 

order  to 

find 

the 

optimum 

AT&T 

solution. 

3.  DISPATT.PRG  -  Displays  the  optimum  AT&T  solution 
for  outgoing  WATS  traffic. 

4.  DISPIN. PRG  -  Displays  data  which  was  input  and 
used  to  optimize  the  incoming  WATS  traffic. 

5.  DISPLAY. PRG  -  Controls  screen  displays  of  optimum 
configurations  for  all  carriers. 

6.  DISPMCI.PRG  -  Displays  the  optimum  MCI  solution 
for  outgoing  traffic. 

7.  DISPOUT. PRG  -  Displays  data  which  was  input  and 
used  to  optimize  the  outgoing  WATS  traffic. 


8.  DISPSBS.PRG  -  Displays  the  optimum  SBS  Skyline 
solution  for  outgoing  traffic. 
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9.  DISPSPNT.PRG  -  Displays  the  optimum  GTE  SPRINT 
solution  for  outgoing  traffic. 

10.  DISPTIN.PRG  -  Displays  the  optimum  AT6T  solution 
for  incoming  WATS  traffic. 

11.  INCPUTE.PRG  -  Controls  selection  of  possible 
configurations  and  computations  in  order  to  find 
optimum  solution  for  AT&T  incoming  WATS  traffic. 

12.  INLINES. PRG  -  Computes  the  number  of  incoming 

lines  of  each  band  required  for  each 

configuration  in  order  to  meet  the  customer's 
service  requirement. 

13.  INSTORE. PRG  -  Stores  the  optimal  solution  for  the 
AT&T  incoming  WATS  traffic  in  the  /RESULTS/ 
directory. 

14 .  MCIOUT.PRG  -  Same  as  #2  for  MCI. 

15.  NEWNET.PRG  -  Controls  all  functions  to  optimize 

the  current  network  based  on  data  provided  by  the 
user. 

16.  OUTLINES. PRG  -  Computes  the  number  of  outgoing 

lines  of  each  band  required  for  each 

configuration  in  order  to  meet  the  customer's 
service  requirement. 

17.  OUTPUT. PRG  -  Controls  all  output  of  optimized 

solutions . 

18.  OUTSTORE.PRG  -  Stores  the  optimal  solution  for 

outgoing  WATS  traffic  for  each  carrier  in  the 
/RESULTS/  directory. 


19.  PRINT. PRG  -  Controls  the  printing  of  optimum 


solutions  for 

all 

carriers . 

20. 

PRNTATT.PRG  - 

Same 

as 

#3  to 

the 

printer. 

21  . 

PRNTIN.PRG  - 

Same 

as  ; 

#4  to  the  printer. 

22. 

PRNTMCI.PRG  - 

Same 

as 

#6  to 

the 

printer. 

23. 

PRNTOUT.PRG  - 

Same 

as 

#7  to 

the 

printer. 

24. 

PRNTSBS.PRG  - 

Same 

as 

#8  to 

the 

printer. 

25. 

PRNTSPNT.PRG 

-  Same  as  #9  to 

the 

1  printer 

26. 

PRNTTIN.PRG  - 

Same 

as 

#10  to 

the 

printer 

/NOWNET/  Directory  Modules 

1.  COMPAT&T.PRG  -  Computes  the  AT&T  cost  of  the 
present  network. 

2.  COMPMCI.PRG  -  Computes  the  MCI  cost  of  the 
present  outgoing  WATS  configuration. 

3.  COMPSBS.PRG  -  Same  as  #2  for  SBS  Skyline. 

4.  COMPSPNT.PRG  -  Same  as  #2  for  GTE  SPRINT. 

5.  COMPUTE. PRG  -  Controls  all  computations  of  cost 
for  the  current  network. 

6.  DISPL.M.PRG  -  Controls  all  screen  displays  of 
current  network  costs  for  each  carrier. 

7.  FINISH. PRG  -  Stores  the  current  network  costs  for 
all  carriers  in  a  /RESULTS/  directory  file 
specified  by  the  user,  then  returns  to  the  main 
menu. 


i 


8.  NOWNET. PRG  -  Controls  all  functions  to  determine 
current  network  costs. 


9.  OUTPUT. PRG  -  Controls  all  output  for  the  current 


network. 

10.  PRINT. PRG  -  Controls  the  printing  of  current 
network  costs  for  each  carrier. 

/RESULTS/  Directory  Modules 

1.  DISPLAY. PRG  -  Controls  screen  displays  of  all 
results . 

2.  PRINT. PRG  -  Controls  printing  of  all  results. 

3.  OUTPUT. PRG  -  Controls  all  output. 

4.  RESULTS. PRG  -  Retrieves  a  file  specified  by  the 
user  in  order  to  look  at  the  results  of  a 
configuration  previously  run  through  the  program. 

/TABLES/  Directory  Modules 

1 .  LOAD. PRG  -  Loads  new  carrier  rate  tables  into 
the  OPTICOM  program. 

2.  TABLES. PRG  -  Provides  explanatory  Information  to 
the  user  and  controls  the  loading  of  new  tables. 


TYPE  0PTIC0N.PR6 


CLEAR  ALL 
SET  TALK  OFF 
SET  DEFAULT  TO  t\ 

SET  MENU  ON 

STORE  'N'  TO  CHOICE 

CLEAR 

•  10,20  SAY  ‘ARE  YOU  USING  A  COLOR  MONITOR  (Y/N)?‘  SET  CHOICE  PICTURE 
READ 

IF  CHOICE  «  'Y' 

SET  COLOR  TO  7/1, i/7, 4 
ELSE 

SET  COLOR  TO  7/0,0/7,0 
ENDIF 

CLEAR 

RESTORE  FROM  \TABLES\DATE 

?  '  OPTICOH  VERSION  1.00  '  *  'RATE  TABLES  AS  OF:  '  i  DATE 

?  '  DECEMBER  2,  19S5‘ 

?  '  STEPHEN  A.  DRAPER' 

? 


7  '  OPTICOH  is  ■  soTtiur*  package  dtsigned  to  aid  you,  the' 

?  '  coaauni cat ions  eanager  in  aaking  decisions  to  optieize  your' 

?  '  long  haul  coaaunications  network.  This  prograa  is  currently' 

?  '  United  to  telephone  traTFic;  honever,  future  versions  aay' 

?  '  be  expanded  to  include  data  traffic  as  well.  The  prograa  is' 

?  '  aenu  driven  so  you  needn't  worry  if  you  are  uncoafortable* 

?  '  with  coaputers  or  prograning.  Each  option,  when  selected,' 

?  '  will  provide  a  description  along  with  the  inforaation  you' 

?  '  are  required  to  provide.  If  you  need  a  diff*rent  selection,' 

?  '  you  can  return  to  any  level  of  the  aenu  to  aake  a  different' 

?  '  selection.  Press  the  <Esc>  key  any  tine  you  wish  to  terainatr' 
?  '  the  OPTICOH  prograa. ' 

? 

? 

NAIT 

DO  HHILE  .T. 

CLEAR 

•  5,10  SAY  'MAIN  MENU* 

•  B,15  SAY  *1  -  DETERMINE  LEAST  COST  NATS  CARRIER  FOR  CURRENT  NETHORK.’ 


t»-RlSfi  744  n  COMPUTER  PROQRAH  FOR  OPTIHIZINQ  LONG  HAUL  TELEPHONE 
NETWORKS  FOR  LEAST. .  (U>  AIR  FORCE  INST  OF  TECH 
HRIOHT-PATTERSON  AFB  ON  S  A  DRAPER  198fi 

UNCLASSIFIED  AFIT7CI/'NR-86-48T  F/O  17/2 

NL 

n 

HH 

1 

1 

1 

1 

1 

1 

1 

•  9,15  SAY  *2  -  OPTIHIZE  CUAREAT  NETVQRK  FOR  MTS  CARRIER 

•  10,15  SAY  '3  -  LOAD  HEN  CARRIER  RATE  TABLES.' 

I  11,15  SAY  '4  -  VIEH  EXISTINS  REStlT  FILES.' 

I  12,15  SAY  '5  •  DELETE  EXISTINS  FILE.' 

I  15,15  SAY  '0  -  FINISHED.' 

STORE  '  '  TO  CHOICE 

I  18,15  SAY  'CHOOSE  ONE.*'  SET  CHOICE  PICTURE  '9' 

READ 

DO  CASE 

CASE  CHOICE  >  'O' 

CANCEL 

CASE  CHOICE  «  *1' 

SET  PATH  TO  BilNONNH 
DO  NOHHET 
CASE  CHOICE  «  '2' 

SET  PATH  TO  BtVNEHNET 
DO  NEHNET 
CASE  CHOICE  >  '3' 

SET  PATH  TO  B:\TABLES 
DO  TABLES 
CASE  CHOICE  «  '4' 

SET  PATH  TO  B:\RESULTS 
DO  RESULTS 
CASE  CHOICE  «  'S' 

SET  PATH  TO  B:\OELETE 
DO  DELETE 

ENDCASE 
SET  PATH  TO  Bt 


TYPE  MNWETMNHMET.PM 


SO  TEIT 
CLEM 

RESTORE  FROM  \TMLES\CONSTANT 
FLAB  «  .T. 

DO  WILE  FLAB 

STORE  60  TO  RETRO 
STORE  AS  TO  SBSl 
STORE  20  TO  SBS2 
STORE  10  TO  SBS3 

I  S,10  SAY  ‘PRESS  RETURN  KEY  TO  USE  DEFAULT  VALUES  OR  ENTER  YOUR  OHN.* 

•  S,10  SAY  'flCl  k  SPRINT  RETROPaiTAN  PERCENTA6E:'  BET  RETRO 

I  10,10  SAY  ‘SBS  SKYLINE  TIER  1:*  BET  SBSl 

•  12,10  SAY  *SBS  SKYLINE  TIER  2t*  BET  SBS2 

I  14,10  SAY  'SBS  SKYLINE  TIER  3t*  BET  SBS3 

READ 

IF  SBSl  *  SBS2  *  SBS3  <>100  .AND.  RETRO  <*  100 
FLAB  «  .F. 

8BS4  >  100  -  SBSl  •  SBS2  >  SB53 
I  16,10 

I  16,10  SAY  ‘SBS  SKYLINE  TIER  4:‘  BET  SBS4 
? 

HAIT 

ELSE 

I  16,10  SAY  'INVALID  ENTRIES.  TOTALS  EICEED  1001.  REENTER  VALUES. 
ENOIF 
ENDDO 

SET  SAFETY  OFF 

SAVE  TO  \TABLES\CONSTANT 

SET  SAFETY  ON 


CLEAR 
USE  NONNET 
SET  SAFETY  OFF 
ZAP 

SET  SAFETY  ON 
FINISHED  ■  .F. 

DO  HHILE  .NOT.  FINISHED 
60T0  BOTTON 
APPEND  BLANK 
REPLACE  USE  DAY  NITH  0 
REPLACE  USE  EVE  NITH  0 
REPLACE  USE  NI6HT  NITH  0 


I  S,iO  SAY  'ENTER  INFORMATION  FOR  EACH  NATS  BAND  YOU  CURRENTLY  HAVE. 
VALID  >  .F. 

I  11,10  CLEAR 


DO  HHILE  .NOT.  VALID 
DELETE 
PACK 

APPEND  BLANK 
REPLACE  USE.DAY  HITH  0 
REPLACE  USE  EVE  NITH  0 
REPLACE  USE  NIGHT  NITH  0 
REPLACE  OUT  HITH  .T. 

REPLACE  QUANTITY  HITH  0 

I  9,10  SAY  ■  HATS  BAND  (1  THRU  6):'  SET  BAND 

READ 

IF  BAND  >>1  .AND.  BAND  <«  A 
VALID  >  .T. 

I  11,10 
ELSE 

I  11,10  SAY  'INVALID  ENTRY.  REENTER  BAND.' 

ENDIF 

ENDDO 


11,10 

SAY 

13,10 

SAY 

IS,  10 

SAY 

14,10 

SAY 

17,10 

SAY 

10,10 

SAY 

'  IS  THIS  AN  OUT  NATS  (T/F)?' 
'  NUMBER  OF  LINES:' 
'AVERAGE  HOURS  BIUED  PER  LINE  PER  MONTH:' 
'  DAY:' 
'  EVENING:' 
'  NI6HT/NEEKEND:' 


SET  OUT 
SET  QUANTITY 

GET  USE.DAY 
GET  USE  EVE 
GET  USE  NIGHT 


I  20,10  SAY  'IS  THIS  YOUR  LAST  ENTRY  (T/F)?'  GET  FINISHED 
READ 


IF  FINISHED 

G  22,10  SAY  'DOUBLE  CHECK  YOWt  ENTRIES  AND  MAKE  CORRECTIONS  ON  NEIT  SCR 

EEN.' 


G  23,10  SAY  'PRESS  (CtrlXEnd)  HHEN  FINISHED.' 

HAIT 
CLEAR 
GOTO  TOP 
BRONSE 
GOTO  TOP 

DO  HHILE  .NOT.  EOFO 

IF  BAND  >  6  .OR.  BAND  <  1 
CLEAR 

G  12,1  SAY  'INVALID  SITRIES.  BAND  MUST  BE  1  THRU  6.  PLEASE  NAK 
E  CORRECTIONS  ON  NEIT  SCREEN.' 


I  13,10  SAY  'PRESS  <Ctrl><End>  HHEN  FINISHED.' 


TYPE  \N0IMET\TE1T.PR6 


CLEAR 
I  S,1S 
? 


SAY  'DETERHINE  THE  LEAST  COST  HATS  CARRIER* 


This  option  oill  ditoriini  ohich  ctrriir  ii  thi  lint* 
cottly  for  your  oxitting  nctuork.  Tho  cirritri  uud  ori* 

HCI,  SPRIRT,  SBS  Skylint,  ond  ATIT.  You  ouit  providt  inforMtion* 
on  your  currint  configurotion  for  each  line  as  follousi* 

(1)  Average  hours  billed  each  eonth.* 

(2)  HATS  band.* 

(3)  HATS  in  or  out.* 

(41  Percentage  of  calls  to  aetropolitan  areas.* 


STORE  ‘H*  TO  CHOICE 

I  23, IS  SAY  *00  YOU  HISH  TO  COHTIHUE  HITH  THIS  OPTIOH  (Y/N)?' 
HOICE  PICTURE  *!' 

READ 

IF  CHOICE  <>  *Y* 

RETURN 

ENDIF 


HCI  and  SPRINT  have  too  rate  tablnt* 
one  for  calls  that  utilize  only  their  facilities,  such  as* 
large  cities,  and  one  for  calls  that  oust  also  utilize  ATIT* 
facilities,  such  as  rural  areas.  The  default  values* 
for  NCI  and  SPRINT  are  BOX  ON-NET  (aetropolitan)  and* 

20X  OFF-NET  (rural).' 


TYPE  MNMNEnCOHPUTE.m 


CLEM 

I  12,18  SAY  'MIT  A  NIMITE  NHILE  I  90  SORE  F16URIN6. 
•  13,18  SAY  'COHPUTINS  ATIT  COST.' 

00  COHPATIT 

I  14,18  SAY  'CORPUTIRS  HCI  COST.' 

00  CQHPHCl 

I  15,18  SAY  'CORPUTIRS  6TE  SPRINT  COST.' 

00  CONPSPNT 
USE  RESULTS 
COUNT  TO  COUNT 

IF  COUNT  >  1 
00  SORT 
ELSE 
ENOIF 

8  16,18  SAY  'CONFUTING  SBS  SKYLINE  COST.* 

00  C0HPS8S 
DO  STORE 


TYPE  MnWET\C(MP»TIT.PRG 


CLEM  ALL 
USE  RESULTS 
SET  SAFETY  OFF 
ZAP 

SET  SAFETY  ON 
APPEND  FROM  NOMCT 
SOTO  TOP 

RESTORE  FROM  \TABLES\CONSTANT 


SELECT  i 

00  MILE  .NOT.  EOFO 

IF  our 

SELECT  2 

USE  \TABLES\ATtTOUT 
ELSE 

SELECT  2 

USE  \TAILES\ATITIN 
ENDIF 

LOCATE  FOR  BAND  «  A->BAND 
SELECT  1 
DO  CASE 

CASE  USE.DAY  >■  80 

REPLACE  BAY.An  NITH  {B->DAY15*15  ♦  B->DAy25t25  ♦  B->BAY«0*40  ♦ 
(USE.DAY-80)tB->DAY80)  t  QUANTITY 
CASE  40  <  USE  DAY  .MB.  USE  DAY  <  80 

REPLACE  DAY.ATT  NITH  <B->DAY15«15  f  B->DAY2St25  « 

(USE  DAY-40) tB->0AY40)  «  QUANTITY 
CASE  15  <  uiE  BAY  .MB.  USE  BAY  <>  40 

REPLACE  DAY.ATT  NITH  (B->DAYlStlS  *  (USE  DAY-15) i8->DAY25) 

•  QUANTITY 
CASE  USE  DAY  <>  15 

REPLACE  DAY.ATT  NITH  USE  DAytB->DAY15  •  QUMTITY 

ENDCASE 
DO  CASE 

CASE  USE.EVE  >•  80 

REPLACE  EVE.An  NITH  (B->EVE15«15  ♦  B->EVE25t25  ♦ 

B->EVE40i40  *  (USE.EVE-80)t8->EVEB0)  •  QUANTITY 
CASE  40  <  USE.EVE  .AND.  USE  EVE  <  80 

REPLACE  EVE.An  NITH  (8->EVE15»15  ♦  B->EVE25»25  ♦ 
(U8E.EVE-40)#B->EVE40)  t  QUANTITY 
CASE  15  <  USE.EVE  .AND.  USE  EVE  <•  40 


REPLACE  EVE  An  HITH  (B>>EVE15M5  * 

SE  EVE-19) «B->EVE2S)  f  QUANTITY 
CASE  USE  EVE  <*  15 

REPLACE  EVE  AH  HITN  USE.EVE*B->EVE15  •  QUANTITY 

ENBCASE 

REPLACE  NIGHT  ATT  NITH  (USE  NIGHT  «  B->HEEKEND  •  QUANTITY) 
REPLACE  ACCES.ATT  NITH  B->ACCESS  «  QUANTITY 


IF  DAY.ATT  ♦  EVE  ATT  ♦  NIGHT  ATT  >»  BUANTITY«An  HIN 

REPLACE  ATT  TOTAL  NITH  DAY  ATT^EVE  ATTtNIGHT  ATTtACCES  ATT 
ELSE 

REPLACE  AH  TOTAL  HITH  QUANTITYiATT  HIN  i  ACCES  ATT 
ENOIF 


SKIP 

ENOOO 

RETURN 


SET  ECHO  OFF 


TYPE  MtOWCnCOHPflCI.PRS 


CLEM  AU 

RESTORE  FROfl  \TABLES\CONSTANT 
USE  RESULTS 
SOTO  TOP 
SELECT  1 

N  WILE  .NOT.  EOFO 
IF  OUT 
SELECT  2 

USE . . . . 

LOCATE  FOR  BAND  «  A-jIaW) 

SELECT  1 
DO  CASE 

CASE  USE  DAY  >«  80 

REPLACE  DAY  NCI  HITH  (B->DAY1S«15  ^  B->DAY2St25  * 

B->OAY40f40  *  (USE  DAY-BOI«B->DAYBO)  <  QUANTITY 

RETRO/ 100 

SELECT  2 
SKIP 
SELECT  1 

REPLACE  DAY  RCI  NITH  (B->DAY15*15  *  B->DAY25*25  * 

B->DAY40«40  *  (USE.DAY-SOUBODAYBO)  «  QUANTITY  I 

OO-HETROI/IOO  t  DAY.NCI 

CASE  40  <  USE  DAY  .MD.  USE  DAY  <  BO 

REPLACE  DAY.NCI  HITH  (B->DAY15tl5  t  B->DAY2S«25  t 
(USE  0AY-40>tB->DAY40)  »  QUANTITY  »  NETRO/lOO 
SELECT  2 
SKIP 
SELECT  1 

REPLACE  DAY  RCI  NITH  (B->DAY15»15  ♦  B->DAY25f25  ♦ 

(USE  DAY-40)fB->DAY40)  f  QUANTITY  •  (iOO-HETRO)/100  * 

DAY  NCI 

CASE  15  <  USE.DAY  .AND.  USE.OAY  <«  40 

REPLACE  DAY  NCI  NITH  (B->DAY15«15  *  (USE  DAY-lS)fB>>DAY25) 

•  QUANTITY  f  NETRO/lOO 
SELECT  2 
SKIP 
SELECT  1 

REPLACE  DAY.NCI  HITH  (B->DAY15<15  *  (USE.DAY-15)<B->DAY2S> 

»  QUANTITY  •  (100-HETR0)/100  ♦  DAY.NCI 
CASE  USE  DAY  <■  15 

REPLME  DAY  NCI  HITH  USE  DAYiB->DAY15  t  QUANTITY  i  NETRO/IOO 


SELECT  1 

REPLACE  DAY  HCI  HITH  USE  DAy*B->DAY15  •  flUANTITY 
i  (100-flETR0)/100  *  DAY  flCI 
ENDCASE 
SELECT  2 
SKIP  -1 
SELECT  1 

DO  CASE 

CASE  USE.EVE  >>  BO 

REPLACE  EVE  HCI  HITH  (B->EVE15tl5  *  B->EVE25«2S  * 

B->EVE40»40  *  (USE.EW-80)»D->EVE60)  i  QUANTITY  «  N 

m/m 

SELECT  2 
SKIP 
SELECT  1 

REPLACE  EVE  NCI  HITH  (B->EVE15tl5  *  B->EVE2S*25  * 

B->EVE40t40  *  (USE.EVE*80)*B->EVEB0)  «  QUANTITY  • 

100-HETR0)/100  ♦  EVE.HCI 

CASE  40  <  USE.EVE  .AND.  USE  EVE  <  80 

REPLACE  EVE.HCI  HITH  (B->EVE15*15  *  B->EVE25«2S  * 

(USE  EVE-401 *B-)EVE40I  •  QUANTITY  •  NETRO/100 
SELECT  2 
SKIP 
SELECT  1 

REPLACE  EVE.HCI  HITH  (D->EVEl5tI5  ♦  B->EVE25«25  ♦ 

(USE  EVE-40) »B->EVE40)  «  QUANTITY  ♦  (100-HETRO)/100  + 

EVE.HCI 

CASE  15  <  USE  EVE  .AND.  USE  EVE  <«  40 

REPLACE  E^  NCI  HITH  (e->EVEl5tl5  *  (USE  EVE-lS)tB->EVE25) 

»  QUANTITY  »  HETRO/100 
SELECT  2 
SKIP 
SELECT  1 

REPLACE  EVE.HCI  HITH  (B->EVE15»15  ♦  (USE.EVE-15)«B->EVE25) 

«  QUANTITY  I  (100-HETR0)/100  ♦  EVE.HCI 
CASE  USE.EVE  <>  IS 

REPLACE  EVE  NCI  HITH  USE  EVE<B->EVE1S  «  QUANTITY  *  NETRO/100 
SELECT  2 
SKIP 
SELECT  1 

REPLACE  EVE.HCI  HITH  USE.EVE«B->EVE15  «  QUANTITY 
I  (100-NETR0)/100  *  EVE  NCI 
ENDCASE 

SELECT  2 
SKIP  -1 
SELECT  1 


REPLACE  NI6HT  HCI  NITH  (USE  NI6HT  «  B->HEEKEND  i  QUANTITY)  *  NETRO/100 


TYPE  \N0IMET\C0nPSPNT.PR8 


CLEAR  ALL 

RESTORE  FROM  \TABLES\CONSTANT 
USE  RESULTS 
SOTO  TOP 
SELECT  1 

DO  HHILE  .NOT.  EOFO 
IF  OUT 
SELECT  2 

USE  \TABLES\SPRNTOUT 
LOCATE  FOR  BAND  «  A->BAND 
SELECT  1 
DO  CASE 

CASE  USE.DAY  >■  100 

REPLACE  BAY.SPNT  HITH  (B->DAYO  «0M0  *  B->DAY40  70<30  i 
B->BAY70JOO»3O  ♦  (USE  DAY-100)«B->DAY100PLUS>  •'bUANTITY 
«  NETRO/100 
SELECT  2 
SKIP 
SELECT  i 

REPLACE  BAY.SPNT  HITH  (B->DAY0.40»40  *  B-7DAY40  70*30  * 
B->BAY70.IO0»30  ♦  (USE.DAY-100)»B->DAyi00PLUS)  »  BUANTITY 
»  (100-NETR0)/100  ♦  BAY.SPNT 
CASE  70  <  USE.BAY  .AND.  USE  DAY  <  100 

REPLACE  BAY.SPNT  HITH  (B->DAY0.40*40  ♦  B-7DAY40  70*30  ♦ 

(USE  DAY-70) *B->DAY70  100)  *  QUANTITY  *  HETRO/100  ' 

SELECT  2 
SKIP 
SELECT  1 

REPLACE  BAY.SPNT  HITH  (B->DAY0.40*40  ♦  B-7DAY40  70*30  ♦ 
(USE.DAY-70)*B->BAY70  100)  *  QUANTITY  *  (lOO-HETROl/lOO  ♦ 

BAY.SPNT 

CASE  40  <  USE.DAY  .AND.  USE  DAY  <»  70 

REPLACE  BAY.SPNT  HITH  (B->DAY0.40*40  ♦  (USE.DAY-40)*B->DAY40.70 
)  *  BUANTITY  *  KHRO/lOO 

SELECT  2 
SKIP 
SELECT  1 

REPLACE  BAY.SPNT  HITH  (B->DAY0.40*40  ♦  (USE.BAY-40)*B->DAY40.70 
)  *  QUANTITY  *  (100-HETR0)/100  ♦  DAY  SPHT 

CASE  USE  DAY  <*  40 

REPLACE  BAY  SPNT  HITH  USE  DAY*B->DAYO  40  *  BUANTITY  *  NETRO/100 
SELECT  2 


X 


REPLACE  DAY  SPNT  HITK  USE  DAY*B->DAYO  40  •  DUANTITY 
«  (100-RETR0)/100  *  OAY.SPNT 
ENDCASE 
SELECT  2 
SKIP  -1 
SELECT  1 

DO  CASE 

CASE  USE  EVE  >«  100 

REPLACE  EVE  SPNT  NITH  (B>>EVEO  40M0  *  B>>EVE40  70«30  * 

B->EVE70  100130  *  (USE  E1^‘100)*B->EVE100PLUS)  •  QUANTITY 
t  NETRO/100 
SELECT  2 
SKIP 
SELECT  1 

REPLACE  EVE  SPNT  KITH  (B->EVEO  40M0  *  B->EVE40  70*30  * 
B->EVE70.100«30  *  (USE.E\S-100)*B->EVE100PLUS)  *  QUANTITY 
»  (100-HETR0)/100  *  EVE  SPNT 
CASE  70  <  USE  EVE  .AND.  USE  EVE  <  100 

REPLACE  E^.SPNT  NITH  (B->EVE0.40»40  *  B->EVE40.70*30  * 

(USE  EVE-70) ID- >EVE70  1001  •  QUANTITY  •  HETRD/100 
SELECT  2 
SKIP 
SELECT  1 

REPLACE  EVE  SPNT  NITH  (B->EVEO  40*40  *  B->EVE40  70*30  * 

(USE  EVE-70) *B->EVE70  100)  *  QUANTITY  *  (100-NETRO)/100  * 

EVE.SPNT 

CASE  40  <  USE.EVE  .AND.  USE.EVE  <■  70 

REPLACE  EVE  SPNT  NITH  <D->EVEO  40*40  *  (USE  EVE-40) *B->EVE40  70 
)  *  QUANTITY  *  RETRO/ 100 

SELECT  2 
SKIP 
SELECT  1 

REPLACE  EVE.SPNT  NITH  (B->EVE0.40*40  *  (USE 

EVE-40) *B->EVE40  70)  *  QUANTITY  *  (100-NETRO)/100  *  EVE  SP 

NT 

CASE  USE  EVE  <>  40 

REPLACE  EVE  SPNT  NITH  USE  EVE*B->EVEO  40  *  QUANTITY  *  NETRO/100 
SELECT  2 
SKIP 
SELECT  1 

REPLACE  EVE  SPNT  NITH  USE  EVE*B->EVEO  40  *  QUANTITY 
*  (100-NETR0)/100  *  EVE  SPNT 
ENDCASE 

SELECT  2 
SKIP  -1 
SELECT  1 

REPLACE  NI6HT.SPNT  NITH  (USE.NI6HT  *  B-TSHKEND  *  DUANTITY)  *  HETRO/100 
SELECT  2 


ov 


REPLACE  HI6HT.SPNT  NITN  (USE.NISHT  •  B->NEEKEM)  •  OUANTITY) 

•  (100-HETRO)/100  *  NI6HT.SPNT 

REPLACE  ACCES.SPNT  HITH  SPNTACCESS  •  QUANTITY 

IF  DAY.SPNT  ♦  EVE.SPNT  ♦  NIGHT JPHT  >«  QUANTITY»SPRNT.NIN 

REPLACE  SPNT.TOTAL  NITH  DAY  SPNT4EVE  SPNT+NI6HT  ^NTiACCES  SPNT 
ELSE 

REPLACE  SPNT.TOTAL  NITH  QUANTITYtSPRNT  HIN  *  ACCES  SPNT 
ENOIF 


TYPE  \NOIHIET\SORT.PRG 


CLEAR  ALL 
USE  RESULTS 
SET  SAFETY  OFF 

SORT  ON  BAND, QUANTITY  TO  TEHP 
ZAP 

APPEND  FROM  TEMP  FOR  OUT 
APPEND  FRON  TENP  FOR  .NOT.  OUT 
DELETE  FILE  TENP.DBF 
SET  SAFETY  ON 
RETURN 

SET  ECHO  OFF 
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TYPE  MKMNETXCIMPSBS.PRG 


CLEAR  ALL 
SELECT  1 
USE  RESULTS 

RESTORE  FROR  \TABLES\CONSTANT 

sun  USE  BAY  t  QUANTITY  TO  OAYTOTAL  FOR  OUT 

SUN  (USE.EVE  4  USE  NI6HT)  •  QUANTITY  TO  NI6HTT0TAL  FOR  OUT 

USETOTAL  «  OAYTOTAL  *  NI6HTT0TAL 

sun  QUANTITY  TO  LINETOTAL  FOR  OUT 

DAYAVG  >  DAYTOTAL/LINETOTAL 

NIGHTAVG  >  NIGHTTOTAL/LINETOTAL 

USEAVG  «  USETOTAL/LINETOTAL 

SUN  USE.DAYtQUANTITY  TO  BANOIDAY  FOR  OUT  .AND.  BAND  *  1 

sun  (USE  EVE4USE  NIGHT) iQUANTITY  TO  BANDINISHT  FOR  OUT  .AND.  BAND  *  1 

COUNT  TO  COUNT 

IF  COUNT  <  4 
APPEND  BLANK 
APPEND  BLANK 
APPEND  BLANK 
APPEND  BLANK 
ELSE 
ENDIF 


GOTO  TOP 
SELECT  2 

USE  \TABLES\SBSOUT 

LOCATE  FOR  USAGE  HRS  >  USEAVG  .OR.  EOFO 
SKIP  -1 
SELECT  1 

REPLACE  TIER  NITH  1 

REPLACE  PERCENT  NITH  SBSl 

REPLACE  SBSHRS  DAY  NITH  SBSUDAYTOTAL/lOO 

REPLACE  SBSHRS  EVE  NITH  SBSl  tNIGHTTOTAL/iOO 

REPLACE  DAY.SBS  NITH  SBSUBOTIERi  DAY  t  O.G  •  DAYTOTAL/100 

REPLACE  NIGHT.SBS  NITH  SBS1*B->TIER1.0THR  »  0.&  «  NIGHTTOTAL/100 

REPLACE  ACCES  SBS  NITH  SBS  ACCESSiLINETOTAL 

REPLACE  SBS  LINES  NITH  LIICTOTAL 

SKIP 


REPLACE  TIER  NITH  2 
REPLACE  PERCENT  NITH  SBS2 
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REPLACE  SISHRS  DAY  HITH  SBS2IDAYT0TAL/100 

REPLACE  SBSHRS  EVE  HITH  SBS2«NIGHTTaTAL/100 

REPLACE  OAY.SBS  HITH  SBS2  •  B->TIBt2  DAY  f  O.i  •  DAYTOTAL/IOO 

REPLACE  NIGHT  SBS  HITH  8BS2  t  B->TIER2  DTHR  •  O.i  i  NI6HTT0TAL/100 

REPLACE  SBS  LINES  HITH  LINETOTAL 

SKIP 

REPLACE  TIER  HITH  3 

REPLACE  PERCENT  HITH  SBS3 

REPLACE  SBSHRS.OAY  HITH  SBS3f0AYT0TAL/i00 

REPLACE  SBSHRS.EVE  HITH  SBS3«NI6HTTaTAL/100 

REPLACE  DAY.SBS  HITH  SBS3  •  B->T1ER3.DAY  i  0.6  »  DAYTOTAL/IOO 

REPLACE  NIGHT  SBS  HITH  SBS3  •  B*>TIER3  OTMI  4  0.6  i  NIGHTTOTAL/iOO 

REPLACE  SBS  LINES  HITH  LINETOTAL 

SKIP 

REPLACE  TIER  HITH  4 

REPLACE  PERCENT  HITH  SBS4 

REPLACE  SBSHRS.OAY  HITH  SBS4f0AYT0TAL/100 

REPLACE  SBSHRS.EVE  HITH  SBS4  iNIGHTTQTAL/lOO 

REPLACE  DAY.SBS  HITH  SBS4  4  B->TIER4.DAY  4  0.6  4  DAYTOTAL/IOO 

REPLACE  NIGHT  SBS  HITH  SBS4  4  B->TIER4  DTHR  4  0.6  4  NIGHTTOTAL/IOO 

REPLACE  SBS.LINES  HITH  LINETOTAL 

SUN  DAY  SBS  TO  SUNDAY 
SUN  NIGHT  SBS  TO  SUNNIGHT 
GOTO  TOP 

IF  USEAVG  <  SBS.HRSNIN  .AND.  SUNDAY  4  SUNNIGHT  <  SBS  NIN4LINET0TAL 
REPLACE  SBS.TOTAL  HITH  SBS  RIN4LIICT0TAL  *  ACCES'SBS 
ELSE 

REPLACE  SBS.TOTAL  HITH  SUNDAY  4  SUNNIGHT  4  ACCES  SBS 
ENDIF 


RETURN 


SET  ECHO  OFF 


C 


TYPE  \NONNET\OUTPUT.PRG 


CLEAR  ALL 
DO  MHILE  .T. 

CLEAR 

STORE  '  '  TO  CHOICE 

i  B,2S  SAY  '-1-  DISPLAY  RESULTS  ON  SCREEN.* 

I  10,25  SAY  '-2-  PRINT  OUT  THE  RESULTS.' 

I  13,25  SAY  '-0-  FINISHED.' 

I  17,25  SAY  'CHOOSE  ONE:'  KT  CHOICE  PICTURE  '9 
READ 

DO  CASE 

CASE  CHOICE  «  '1' 

DO  DISPLAY 
CASE  CHOICE  «  '2* 

DO  PRINT 

CASE  CHOICE  «  'O' 

DO  FINISH 
RETURN 


ENOCASE 


TVPE  VMMNETNDISPLAY.PRG 


CLEAR 

TEIT 


CURRENT  CONFIGURATION 


A  rtport  tuM*ry  lill  bi  diiplaytd  Tor  itch  cirritr  plus 
a  coapariion  report  oT  all  the  carriers.  The  display 
Mill  aait  betiieen  reports.  Press  <Ctrl><S>  to  stop  the 
scrolling.  Press  <Ctrl><S>  again  to  resuae. 


ENOTEIT 

HAIT 

CLEAR 

USE  RESULTS 
IF  OUT 

RESTORE  FROH  \TABLES\CONSTANT 
SUN  QUANTITY  TO  NUNLINES  FOR  OUT 
SELECT  2 

USE  \TABLES\ATtTOUT 

IF  NUNLINES  «  0 
CONECTOTAL  «  0 
ELSE 

CONECTOTAL  •  CONNECTl  *  (NUNLINES-l)iC0NNECT2 
ENOIF 
SELECT  1 

LINEI  >  '  Access  charge  is  I*  *  STR(B->ACCESS,6,2)  «  '  per  line.* 

LINE2  *  '  Connection  charge  is  >*  *  STR(B->C0NNECTl,i,2)  *  '  for  the  fi 

rst  line  and  ' 

LINES  *  '  V  *  STR(G->C0NNECT2,6,2>  *  *  for  each  successive  line.' 

LINE4  •  '  Total  eennectten  charge  for  this  configuration  is  $'  *  STRtCO 

NECT0TAL,7,2)  ♦  *.* 

LINES  ■  '  Niniaua  usage  charge  is  I*  *  STR(ATT.NIN,6,2)  *  '  per  line  ex 
elusive  of  access  charges.* 


REPORT  FORH  AThTOUT  FOR  OUT 


I»? 


IF  flTT.HIN  >  0 
?  LINES 
ELSE 
ENDIF 
HAIT 


IF  NUHLINES  «  0 
CONECTOTAL  «  0 
ELSE 

CONECTOTAL  >  NCICONNECT  «  NWLINES 
ENOIF 


LINEl  *  ■  Acciii  chargi  it  I*  «  STNIHCI  ACCESS, 6, 2)  *  '  par  line.' 

LINE2  *  '  Connection  charge  it  I*  *  STR(HCIC0NNECT,6,2)  *  ’  per  line.' 

LINES  >  '  Total  connection  charge  Tor  thit  conTiguration  it  $'  *  STR(CQ 

NECTOTAL,7,21  ♦  '.' 

LINE4  >  '  Ninieue  uiage  charge  it  I'  *  STR(nCI.NIN,A,2)  *  '  per  line  ex 
clutivc  of  acceti  charget.' 

REPORT  FORK  NCIOUT  FOR  OUT  HEAD1N6  STR(NETR0,3,0)  *  'Z  ON-NET/'  t  STRIIOO-N 
ETR0,S,0l  ♦  'I  OFF-NET' 

NAIT 

? 

? 

7 

?  LINEl 
?  LINE2 
?  LINES 

IF  NCI  RIN  >  0 
?  LINE4 
ELSE 
ENDIF 
HAIT 


IF  NUUINES  «  0 
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CONECTOTAL  ■  0 
ELSE 

CONECTOTAL  «  SPNTCONECT  f  NUHLINES 
ENDIF 


LINEl  ■  '  Aecni  chirgt  ti  I*  *  STR(SPNTACCESS,6,2)  *  *  pfr  linf.' 

LINE2  >  ■  Conntction  chtrgt  is  f  *  STAtSPNTC0NECT,6,2l  *  '  pir  lini.' 

LINE3  >  '  Total  connaction  chargt  Tor  this  conTiguration  is  I*  *  STRCCO 

IIECT0TAL,7,21  ♦ 

LINE4  *  ■  Niniaui  usagi  chargt  is  V  *  STR(SPRNT.HIN,A,2)  *  'ptr  lint 
nclusivi  of  acctss  chargis.* 

REPORT  FORK  SPRNTOUT  FOR  OUT  HEA0IN6  STR(HETR0,3,D)  *  ‘X  ON-NET/'  * 

STR<10O-HETR0,3,0l  ♦  *1  OFF-NET' 

HAIT 

? 

? 

f 

?  LINEl 
?  L1NE2 
?  LINE3 

IF  SPRNT  HIN  >  0 
?  LINE4 
ELSE 
ENDIF 
HAIT 

CLEAR 

SOTO  TOP 

LINEl  «  '  Acctss  chargt  is  I*  *  STR(SBS.ACCESS,6,2)  *  *  ptr  lint.' 

LINE2  «  '  Total  aonthly  acctss  charge  for  this  configuration  is  $'  *  ST 

R(ACCES.SBS,7,2)  ♦ 

LINE3  >  '  Hinitua  usagt  chargt  it  t'  *  STR(SBS.HIN,6,2)  *  'if 

avtragt  ust  it  Itts  than  '  *  STR(SBS.HRSR1N,3,0)  *  '  hourt/line.' 

LINE4  *  '  Total  tonthly  cost  for  this  configuration  it  f  *  STR 

<SBS.T0TAL,11,2)  ♦  ',' 

LINES  •  '  Connection  charges  ptr  lint  art  hated  on  the  distance  bttHten 
your' 

LINE6  ■  '  exchange  carrier  tire  center  and  the  SBS  Skyline  HATS  access 
point.' 

REPORT  FORN  SBSOUT  FOR  TIER  )>  1  .AND.  TIER  <«  4 
HAIT 

? 

? 

? 

?  LINEl 
?  LINE2 
IF  SBS.NIN  >  0 
?  LINES 


TYPE  \NWHET\PR1NT.PR6 


CLEAR 

I  B,tO  SAY  'ALISN  PAPER  AND  TURN  ON  PRINTER* 

HAIT 

USE  RESULTS 
IF  OUT 

RESTORE  PRON  \TABLES\CQNSTANT 
sun  QUANTITY  TO  NUHLINES  FOR  OUT 
SELECT  2 

USE  \TABLES\ATETOUT 

IF  NUNLINES  «  0 
CONECTOTAL  «  0 
ELSE 

CONECTOTAL  «  CONNECTl  *  (HUNLINES-1)«C0NNECT2 
ENOIF 


SELECT  1 

LINEl  *  *  Accfit  chtrgc  it  t*  «  STRtB->ACCESS,6,2)  4  '  ptr  line.' 

LINE2  *  *  Connection  charge  is  $'  *  STR(B->C0NNECTi,6,2)  f  *  for  the  fi 

rit  line  and  ' 

LINE3  »  *  I*  ♦  STR(B->C0NNECT2,6,2)  ♦  *  for  each  successive  line.' 

LINE4  «  '  Total  connection  charge  for  this  configuration  is  t'  ^  STRiCO 

NECT0TAL,7,2)  ♦  '.' 

LINES  >  '  Ninieui  usage  charge  is  I’  *  STR(ATT,NIN,6,2)  *  *  per  line  ex 
elusive  of  access  charges.' 


REPORT  FORN  ATITOUT  FOR  OUT  NOEIECT  TO  PRINT 
SET  PRINT  ON 
1 


?  LINEl 
? 

?  L1HE2 
?  LINES 
? 

?  LINE4 
s 


IF  ATT  HIN  >  0 


£ 


SET  PRINT  OFF 
CLEAR 


IF  NUNLINES  <  0 
CONECTOTAL  »  0 
ELSE 

CONECTOTAL  «  NCICONNECT  f  NUNLINES 
ENDIF 


LINEl  *  *  Acctss  charge  is  I*  *  STR(NC1.ACCESS,6,2)  *  '  per  line.' 

LINE2  *  *  Connection  charge  is  I*  ♦  STfi?NCICONNECT,6,2)  ♦  *  per  line.* 

LINE3  :  '  Total  connection  charge  for  this  configuration  is  $'  *  STRICO 

NECT0TAL,7,2)  ♦ 

LINE4  *  '  Ninieue  usage  charge  is  I*  *  STR(NCI.NIN,6,2)  *  *  per  line  ex 
elusive  of  access  charges.' 

REPORT  FORN  NCIOUT  FOR  OUT  HEAOINS  STR(RETR0,3,0)  *  'Z  ON-NET/'  f  S 

TR(100-NETR0,3,01  ♦  *I  OFF-NET*  TO  PRINT 
SET  PRINT  ON 
•) 

? 

? 

?  LINEl 
? 

?  LINE2 
? 

?  LINE3 
? 

IF  NCI.NIN  >  0 
?  LINE4 
? 

ELSE 

ENDIF 

SET  PRINT  OFF 
CLEAR 


IF  NUNLINES  >  0 
CONECTOTAL  *  0 


ELSE 


CONECTOTAL  «  SPNTCONECT  *  NUNLINES 
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LINEl  «  *  Accck  chargi  it  >■  *  5TR(SPNTACCESS,6,2)  *  '  ptr  lint.' 

LINE2  «  *  Conniction  chargt  it  $'  *  8TR(SPNTC0NECT,6,2)  ^  '  ptr  lint.' 

LINE3  «  '  Totil  cmntction  chtrgt  for  thit  configurition  it  $'  *  STRtCO 

NECT0TAL,7,2»  +  '.' 

LIIIIE4  «  '  Ninitut  utagt  chargt  it  I'  *  STR(SPRNT.niN,i,2)  *  '  ptr  lint 
txclusivt  of  accttt  chargtt.' 

REPORT  FORM  SPRNTOUT  FOR  OUT  HEA0IR6  STR(HETR0,3,0)  *  '1  ON-NET/'  *  STRCIOO 
-RETRO, 3,0)  ♦  'X  OFF-MET'  TO  PRINT 
SET  PRINT  ON 
? 

? 

? 

?  LINEl 
? 

?  L1NE2 
? 

?  L1NE3 
? 

IF  SPRNT  NIN  >  0 
?  LINE4 
? 

ELSE 

ENDIF 

SET  PRINT  OFF 
CLEAR 
SOTO  TOP 

LINEl  <  '  Accttt  chargt  it  t'  *  STR(SBS.ACCESS,i,2)  *  '  ptr  lint.' 

LINE2  ■  '  Total  aonthly  accttt  chargt  for  thit  configuration  ii  f  *  ST 

R(ACCES.SBS,7,2)  ♦  '.' 

LINE3  «  '  Ninitut  utagt  chargt  it  I'  *  STR(SBS.HIN,6,2)  *  '  if  avtragt 
ust  it  Ittt  than  '  *  STR(SBS.HRSHIN,3,0)  *  '  hourt/lint.' 

LINE4  ■  '  Total  aonthly  cott  for  thit  configuration  it  t*  *  STRISBS  TOT 
AL,I1,2)  ♦  '.' 

LINES  *  '  Connection  chargtt  ptr  lint  art  bated  on  the  Pittance  betwen 
your' 

LINEi  *  *  exchange  carrier  tire  center  and  the  5BS  Skyline  HATS  accttt 
point.' 

REPORT  FORM  SBSOUT  FOR  TIER  >«  1  .AND.  TIER  <«  4  TO  PRINT 
SET  PRINT  ON 
? 

? 

? 

?  LINEl 
?  LINE2 
? 

IF  SBS  NIN  >  0 
?  L1NE3 
ELSE 
ENOIF 
?  LINE4 
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?  LINES 
?LINE6 

USE  \TABLES\SBSCONEC 
SET  MRSIN  TO  30 
? 

? 

7 

DISPLAY  OFF  ALL 
? 

SET  NARSIN  TO  0 
SET  PRINT  OFF 
CLEAR 

USE  RESULTS 

LINEI  •  *  SBS  Skyliiit  total  oonthly  coat  it  I’  *  STR(SBS.T0TAL,11,2)  * 

i  ■ 

REPORT  FORM  COMPARE  FOR  OUT  TO  PRINT 
SET  PRINT  ON 

7 

?  LlNEl 

7 

SET  PRINT  OFF 
ENOIF 

LOCATE  FOR  .NOT.  OUT 

IF  BAND  >  0 
CLEAR 

RESTORE  FROM  \TABLES\CONSTANT 

SUM  QUANTITY  TO  NUNLINES  FOR  .NOT.  OUT 

SELECT  2 

USE  \TABLES\ATtTIN 

IF  NUNLINES  «  0 
CONECTOTAL  >  0 
ELSE 

CONECTOTAL  >  CONNECT!  *  UmmS)  •CDNNECT2 
ENDIF 


SELECT  1 

LINE!  «  ‘  ACCOM  chargi  i§  $•  *  STR(B->ACCESS,6,2)  *  '  per  line.' 

LINE2  >  ■  Connection  charge  ii  >'  +  STR(B->C0NNECTt,6,2)  *  ‘  for  the  fi 

ret  line  and  ' 

LINES  >  '  t*  «  STR(B->C0NNECT2,6,2)  *  '  for  each  luccNiive  line.' 

LINE4  •  '  Total  connection  charge  for  thie  configuration  it  $'  *  STRIC 

0NECT0TAL,7,2)  ♦  '.' 

LINES  •  '  Hiniaua  utage  charge  it  I'  *  STR(ATT,NININ,6,2)  *  '  per  line 
eiclutive  of  accett  chargei.' 


REPORT  FORM  ATITIN  FOR  .NOT.  OUT  .AND.  ATT.TOTAL  >  0  TO  PRINT 


SET  PRINT  ON 
? 

? 

? 

?  LINEl 
? 

?  LINE2 
?  LINE3 

7 

?  LINE4 

7 

IF  ATT  NININ  >  0 
?  LINES 

7 

ELSE 

ENDIF 

SET  PRINT  OFF 
ENDIF 

CLEAR 

RETURN 

SET  ECHO  OFF 


TYPE  \II0IIIIET\FINISH.PR6 


CLEAR  ALL 

RESTORE  FROM  \TABLES\CONSTANT 
RELEASE  ALL  EICEPT  RETRO 
CLEAR 

DO  HHILE  .T. 

STORE  'Y*  TO  CROICE 

I  20,10  SAY  *00  YOU  NISH  TO  SAVE  THESE  RESULTS  FOR  LATER  USE  (Y/ 

•  GET  CHOICE  PICTURE  *!* 

READ 

DO  CASE 

CASE  CHOICE  >  'N* 

RETURN 

CASE  CHOICE  >  ‘Y* 

CLEAR 

STORE  •  •  TO  FILENAHE 

TEIT 

FilMMti  can  havi  up  to  tipht  lottora  and/or  nuobcrs,  auit  biqin  Hith  a 
Iittor,  and  can  havt  no  iaboddcd  blanks.  (nnHU.DBF). 

ETISTING  FILERAHES  AREi 
ENOTETT 

DIR  \RESULTS\t,DBF 

I  23,10  SAY  'ENTER  FILERAIE  HHERE  RESULTS  ARE  TO  BE  STORED:’ 

SET  FILENAHE  PICTURE  *!!!!!!!!* 

READ 

FILENAHE  >  TRIN (FILENAHE) 

OPTIHIZE  «  ,F. 

RELEASE  CHOICE 

CONSTANT  »  FILENAHE  ♦  •.HEN* 

SAVE  TO  \/iESULTS\UmTm 
FILENAHE  FILENAHE  ♦  ■.DBF* 

SET  TALK  ON 

COPY  FILE  RESULTS. DBF  TO  \RESULTS\tFILENAHE 

SET  TALK  OFF 

RETURN 

EHOCASE 


SET  ECHO  OFF 


TYPE  \NENNET\IIEIINET.PRe 


CLEAR  ALL 

CLEAR 

TEH 


OPTiniZE  CURRENT  NETHORK 


Thii  option  Mill  deteroinc  the  nuober  of  trunki  you  nMd  for 
•tch  band  in  your  ncteork  optioized  for  Icait  coit  for  each 
carrier.  Inforaation  is  utilized  froe  the  present  neteork 
Mhich  Has  entered  in  option  <1>  DETERflINE  LEAST  COST  HATS 
CARRIER.  To  optiaize  your  netuork  requires  a  call  recording 
device  on  each  of  your  HATS  lines  to  deteraine  your  actual 
calling  patterns.  You  oust  provide  the  busy  hour  traffic 
for  each  NATS  band. 

Also,  you  oust  provide  the  *P*  value  required  for  your  lines. 

A  value  of  *P10*  aeans  that  dwing  the  busy  hour,  10  percent 
of  the  calls  atteapted  eill  receive  a  busy  signal  on  the  first 
atteapt.  The  loner  the  'P*  value,  the  better  the  availability 
of  lines]  hoaever,  it  requires  aore  trunks  at  a  higher  expense. 
The  default  value  is  the  highest  *P'  value  of  your  present 
netnork. 


ENDTEXT 


SET  SAFETY  OFF 


STORE  'N*  TO  CHOICE 

I  23,13  SAY  'DO  YOU  NISH  TO  CONTINUE  NITH  THIS  OPTION  (Y/N)?' 
E  PICTURE  •!• 

READ 


SET  CHOIC 


IF  CHOICE  <>  'Y' 

RETURN 

ENDIF 

CLEAR 

I  5,10  SAY  'EXISTINS  RESULT  FILES  ARE:' 

t 


DIR  \RESULTS\t.DBF 
? 

? 

STORE  '  '  TO  FILENAHE 

•  24,50  SAY  'CHOOSE  ONE:'  SET  FILENAHE  PICTURE  '!!!!!!!!' 


it'  T »><•  <1 


*  .  ■ *>  *m 


'  at*'  .fm'  .f*" 


TYPE  \NENIIET\0UTIIATS.PR6 


RESTORE  FROn  TEMP 
USE  NEHNET 

LOCATE  FOR  .HOT.  OUT  .OR.  EOFO 

SKIP  -1 

HAT  *  BAND 

RON  «  3 

PEAKHRl  >  0.0 

PEAKHR2  «  0.0 

PEAKHR3  ■  0.0 

PEAKHR4  «  0.0 

PEAKHRS  «  0.0 

PEAKHR&  >  0.0 

NUMBER  «  i 

CLEAR 

I  2,3  SAY  ‘ENTER  TOTAL  PEAK  HOUR  OUT  NATS  TRAFFIC  IN  MINUTES  FOR  EACH  BAND:* 


DO  NHILE  NUMBER  <«  MAI 

TEMP  >  'PEAKHR'  *  STR (NUMBER, 1,0) 

I  RON, 10  SAY  ‘BAND*  *  STR(NIINBER,1,0)  * 
NUMBER  «  NUMBER  *  1 
RON  «  RON  «  2 


SET  BTEMP  PICTURE  *999.9* 


USE  NENNET 
RON  >  4 
HI6H.P  »  0 
TEMP  •  0 
PEAKNUM  «  1 

LOCATE  FOR  BAND  >  TEMP 


DO  NHILE  OUT  .AND.  .NOT.  EOFO 
TEMP  ■  BAND 
PEAKTOTAL  «  0 

DO  NHILE  PEAKNUM  <■  TEMP 

NAMEPK  ■  ‘PEAKHR*  *  STR(PEAKNUH,1,0) 
PEAKTOTAL  «  PEAKTOTAL  ♦  ANAMEPK 
PEAKNUM  «  PEAKNUM  *  1 
ENDDO 


IV 

I»,‘ 


sun  QUMTITY  TO  LINES  FOR  MNO  >  TENP  .AND.  OUT 
SaECT  2 
USE  POISSON 

LOCATE  FOR  TRUNKS  «  LINES 
NUHBER  >  1 
FLAG  «  .T. 

DO  NHILE  NUHBER  <•  SO  .AND.  FLAG 
IF  NUHBER  >  9 

FIELD  >  ‘P*  *  STR(NUHBER,2,0) 

ELSE 

FIELD  *  'P*  *  STR (NUHBER, 1,0) 

ENDIF 

IF  (FIELD  )>  PEAKTOTAL 
FLAG  »  .F. 

ENDIF 

NUHBER  «  NUHBER  *  1 
ENDDO 

I  R0H,40  SAY  'BAND'  *  STR{TEHP,1,0)  *  '  TRUNKS:  '  GET  FIELD 

IF  NUHBER  -1  >  HIGH.P 
HIGH  P  «  NUHBER  >1 
ENDIF 

RON  «  RON  «  2 
SELECT  1 

LOCATE  FOR  BAND  >  TENP 
ENDDO 

CLEAR  GETS 

FLAG  «  .T. 

DO  NHILE  FLAG 
TEHP2  «  HIGH  P 

•  20,3  SAY  ‘PRESS  RETURN  KEY  TO  USE  DEFAULT  'P'  VALUE  OR  ENTER  YOUR  ONN: 

on  HIGH  P  PICTURE  '99' 

READ 

IF  HIGH.P  <«  SO  .AND.  HIGH  P  >«  1 
FLAG  •  .F. 

ELSE 

HIGH.P  «  TENP2 

•  22, S  SAY  "P'  VALUE  NUST  BE  I  THRU  SO.  REENTER  VALUE.' 


APPEND  BLANK 
REPLACE  BAND  HITH  NUNBER 
REPLACE  OUT  HITH  .T. 
NUNBER  >  NUNBER  *  1 
ENODO 


CLEAR 
GOTO  TOP 

I  5,10  SAY  'ENTER  ACTUAL  NEASURED  TRAFFIC  IN  HOURS  PER  NONTH:’ 

DO  HHILE  .NOT.  EOFO 

I  11,10  SAY  'BAND*  *  STR(BAND,1,0) 

I  13,10  SAY  ■  DAY:'  GET  USE  DAY 

I  15,10  SAY  '  EVENING:'  GET  USE  EVE 

I  17,10  SAY  'NI6HVHEEKEN0:'  GET  USE  NIGHT 
READ 
SKIP 
ENDDO 

NAIT 

SAVE  TO  VNEHNET\TENP 
DO  OUTCPUTE 
RETURN 
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TYPE  \NEMET\0UTCPUTE.PR6 


RESTORE  FROII  TEMP 
CLEAR 

USE  POSSIBLE 

DO  CASE 

CASE  RAX  ■  1 

LOCATE  FOR  ONE  .AND.  .NOT.  THO  .AND.  .NOT.  THREE  .AND.  .NOT 

.  FOUR  .AND.  .NOT.  FIVE  .AND.  .NOT.  SIX 

I  23,5  SAY  ‘TAKE  A  5  HINUTE  BREAK  NHILE  I  DO  SONE  NORK. ' 

CASE  NAX  ■  2 

LOCATE  FOR  TNO  .AND.  .NOT.  TWIEE  .AND.  .NOT.  FOUR  .AND.  .NO 

T.  FIVE  .AND.  .NOT.  SIX 

I  23,5  SAY  'TAKE  A  5  HINUTE  BREAK  NHILE  I  DO  SOHE  NORK. ' 

CASE  NAX  «  3 

LOCATE  FOR  THREE  .AND.  .NOT.  FOUR  .AND.  .NOT.  FIVE  .AND.  .NOT.  SIX 
•  23,5  SAY  'TAKE  A  10  HINUTE  BREAK  NHILE  I  DO  SOHE  NORK. ' 

CASE  HAX  *  4 

LOCATE  FOR  FOUR  .AND.  .NOT.  FIVE  .AND.  .NOT.  SIX 
I  23,5  SAY  ‘TAKE  A  15  HINUTE  BREAK  NHILE  I  DO  SOHE  NORK.' 

CASE  HAX  ■  5 

LOCATE  FOR  FIVE  .AND.  .NOT.  SIX 
I  23,5  SAY  'CONE  BACK  IN  30  NINUTES.' 

CASE  HAX  «  6 
LOCATE  FOR  SIX 

I  23,5  SAY  'CONE  BACK  IN  1  HOUR. ' 

ENDCASE 
SELECT  2 

USE  \RESULTS\BFILE 

STORE  V9V9W9VV9  TO  ATTLONCOS,  NCILWCDS 


V' 


I 

.V 


SELECT  3 
USE  RESULTS 

SELECT  1 
LASTCOUNT  «  0 

DO  NHILE  .NOT.  EOF!) 

DO  CASE 

CASE  HAX  >  1 

LOCATE  FOR  ONE  .AND.  .NOT.  TNO  .AND.  .NOT.  THREE  .AND. 
.NOT.  FOUR  .AND.  .NOT.  FIVE  .AND.  .NOT.  SIX 


P! 


h 


IF  A->SII 
APPEND  BLANK 
REPLACE  BAND  HITH  b 
ENDIF 

SAVE  TO  \NEHNET\TENP 

DO  OUTLINES 

SELECT  3 
DO  ATLTOUT 
DO  HCIOUT 

RESTORE  FROH  TEMP  ADDITIVE 
SELECT  1 
ENDIF 
ENDDO 

I  23,3  SAY  'CALCULATINS  COST  FOR  SBS  SKYLINE 
DO  SKYLINE 

I  23,5  SAY  ‘CALCULATING  COST  FOR  GTE  SPRINT. 
DO  SPRNTOUT 
I  23,5  CLEAR 

I  23,5  SAY  ‘STORING  THE  RESULTS.* 

DO  OUTSTORE 
RETURN 

SET  ECHO  OFF 


TYPE  \NEMNET\0UTLINES.PR6 


RESTORE  FRO«  TEHP 
LASTBAND  «  0 
SELECT  4 
USE  NENNET 

sun  USE.OAY  *  USE  EVE  *  USE  N16HT  TO  SUHEASURED 
SOTO  TOP 
SELECT  2 

sun  (USE.DAY  +  USE.EVE  ♦  USE  MIBHT)  «  QUANTITY  TO  SUnBILLED  FOR  OUT 
FACTOR  >  SUnBILLED/SUnEASURED 


SELECT  3 
SOTO  TOP 

DO  NHILE  .NOT.  EOFO 

NUnBER  «  LASTBAND  *  1 

STORE  0  TO  PEAKSUn,  DAYSUN,  EVESUn,  NISHTSUN 

DO  NHILE  NUNBER  <«  BAND 

NARE  >  *PEAKHR'  *  STR (NUNBER, 1,0) 

PEAKSUN  *  PEAKSUN  *  ANANE 
NUNBER  «  NUNBER  ^  1 

ENOOO 

SELECT  4 

DO  NHILE  BAND  <«  C*>BAND  .AND.  .NOT.  EOFO 
DAYSUN  >  DAYSUN  *  USE  DAY 
EVESUN  >  EVESUN  *  USE.EVE 
NISHTSUN  «  NISHTSUN  t  USE  NISHT 
SKIP 

ENDDO 


SELECT  5 
USE  POISSON 

IF  HI6H.P  <=  9 

P  *  ’P*  ♦  STR(HISH  P,I,0) 
ELSE 


P  *  'P*  ♦  STR(HI6H.P,2,0) 


LOCATE  FOR  IP  )*  PEAKSUfl 
SELECT  3 

REPLACE  QUANTITY  NITH  E->TRUNKS 
REPLACE  USE  DAY  HITH  DAYSUN/OUANTITY  •  FACTOR 
REPLACE  USE  EVE  NITH  EVESUH/DUANTITY  •  FACTOR 
REPLACE  USE  NI6HT  HITH  NISHTSUH/OUANTITY  t  FACTOR 
LASTBAND  «  BAND 
SKIP 
ENDDO 


SAVE  TO  \HEHNET\TEHP 


TYPE  \NENNET\ATIT0UT.PR6 


RESTORE  FROH  TEHP 

RESTORE  FROn  \TABLES\CONSTANT  ADDITIVE 
SELECT  6 

USE  \TABLES\ATtTOUT 


SELECT  3 
GOTO  TOP 

DO  WHILE  JOT.  EOFO 
SELECT  6 

LOCATE  FOR  BAND  «  C->BAND 
SELECT  3 
DO  CASE 

CASE  USE.DAY  ><  SO 

REPLACE  DAY.ATT  WITH  (F->DAY15*15  +  F->DAY25*25  +  F->DAY40t40  ♦ 
(USE  DAy-80}»F->DAY80)  i  SUANTITY 
CASE  40  <  USE.DAY  .AND.  USE.DAY  <  80 

REPLACE  DAY.ATT  WITH  (FODAYlStlS  ♦  F->DAY25i25  ♦ 
(USE.DAY-401»F->DAY40)  «  SUANTITY 
CASE  15  <  USE.DAY  .AND.  USE.DAY  <*  40 

REPLACE  DAY.ATT  WITH  (F->DAY15tl5  +  (USE  DAY“15)*F->DAY25) 

•  QUANTITY 
CASE  USE.DAY  <-  IS 

REPLACE  DAY.ATT  WITH  USE  DAY*F->DAY15  t  OUANTITY 

ENDCASE 
DO  CASE 

CASE  USE.EVE  ><  80 

REPLACE  EVE  AH  WITH  (F->EVE15#15  +  F->EVE25*25  ♦ 

F->EVE40#40  ♦  (USE.EVE-80)»F->EVEB0)  ♦  QUANTITY 
CASE  40  <  USE.EVE  .AND.  USE.EVE  <  80 

REPLACE  EVE  ATT  WITH  (F->EVE15«15  ♦  F->EVE25f25  ♦ 
(USE.EVE-40r»F->EVE40)  f  QUANTITY 
CASE  15  <  USE  EVE  .AND.  USE  EVE  <>  40 
REPLACE  EVE  ATT  WITH  (F->EVE15»15  ♦ 

SE  EVE-15)*F->EVE25)  ♦  QUANTITY 
CASE  USE.EVE  <>  15 

REPLACE  EVE  ATT  WITH  USE  EVE*F>>EVE15  i  QUANTITY 

ENDCASE 


REPLACE  NIBHT  ATT  WITH  (USE  NIGHT  t  F->NEEKEND  i  OUANTITY) 
REPLACE  ACCES.ATT  WITH  F->ACCESS  »  QUANTITY 


o 


IF  DAY.Hn  ♦  EVE.ATT  ♦  III6HT.ATT  >«  QUAMTITY*An  HIM 

REPLACE  An.TOTAL  IITH  DAY.ATT+EVE  ATT+WBHT  ATT+ACCES.ATT 
ELSE 

REPLACE  An  TOTAL  HITH  QUANTITYtAH  HIM  *  ACCES  AH 
ENDIF 

SKIP 

ENDDQ 


SUM  An.TOTAL  TO  ATT.TOTE 

IF  ATT  TOTE  <  ATTLONCOS 
ATTLOHCOS  *  An  TOTE 
SELECT  3 
USE 

SELECT  6 
USE  ATITOUT 
ZAP 

APPEND  FROM  \NENNET\RESULTS 
SELECT  3 
USE  RESULTS 
ENDIF 

SAVE  ALL  EXCEPT  RETRO  TO  \NENNET\TENP 
RETURN 


i 


SET  ECHO  OFF 


TYPE  \NEIMET\HCI0UT.PR6 


RESTORE  FROn  TEMP 

RESTORE  FROn  VRESULTSMiFILENAHE  ADDITIVE 
SELECT  3 
SOTO  TOP 

DO  WHILE  .NOT.  EOFO 
SELECT  A 

USE  \TABLES\HC10UT 
LOCATE  FOR  BAND  «  C->BAND 
SELECT  3 
DO  CASE 

CASE  USE.OAY  >*  80 

REPLACE  DAY.HCl  WITH  (F->DAY15»15  ♦  F->DAY25t25  ♦ 
F-)DAY40f40  *  (USE  DAY-80) tF->DAYBO)  •  QUANTITY 

HETRO/100 

SELECT  A 
SKIP 
SELECT  3 

REPLACE  DAY  NCI  WITH  (F->DAY15»15  ♦  F->DAY25i25  ♦ 
F->DAY40*40  ♦  (USE.DAY-80I*F->DAY80)  ♦  QUANTITY  * 

00-HETR0)/100  +  DAY.HCI 

CASE  40  <  USE.OAY  .AND.  USE.OAY  <  80 

REPLACE  DAY.HCI  NITH  (F->DAY15«15  *  F->DAY25<2S  * 

(USE  DAY-40) tF->0AY40)  »  QUANTITY  »  HETRO/100 
lELECT  A 
SKIP 
SELECT  3 

REPLACE  DAY.HCI  NITH  (F->DAY15tl5  ♦  F->DAY25t25  ♦ 

(USE  DAY-40I*F->0AY40I  #  QUANTITY  *  (100-HETR0)/100  ♦ 

DAY.HCI 

CASE  15  <  USE.DAY  .AND.  USE  DAY  <■  40 

REPLACE  DAY  NCI  WITH  (F->DAYt5*15  *  (USE 

Y-15)#F->DAY25)  f  QUANTITY  *  HETRO/lOO 

SELECT  A 
SKIP 

SELECT  3 

REPLACE  DAY.HCI  WITH  (F->DAY15tl5  *  (USE 

Y-I5)»F->0AY25)  «  QUANTITY  ♦  (100-HETR0)/100  ♦  DAY  HCI 

CASE  USE.OAY  <«  15 

REPLACE  DAY  NCI  NITH  USE  DAY«F->DAY15  i  QUANTITY  i  NETRO/100 
SELECT  A 
SKIP 
SELECT  3 

REPLACE  DAY  NCI  WITH  USE  DAYtF->DAY15  *  QUANTITY 


«  (lOO-HETROI/tOO  *  DAY  HCI 
ENOCASE 
SELECT  i 
SKIP  -1 
SELECT  3 

DO  CASE 

CASE  USE.EVE  >«  80 

REPLACE  EVE.NCI  KITH  (F->EVE15«15  ♦  F*>EVE25t25  ♦ 

F->EVE40»40  ♦  (USE.EVE-80)»F->EVE80J  #  BUANTITY  I  M 

TRO/100 

SELECT  h 
SKIP 
SELECT  3 

REPLACE  EVE.HCI  KITH  IF->EVE15»15  ♦  F->EVE25i25  ♦ 

F->EVE40»40  ♦  (USE.EVE-80)tF->EVE80)  »  OUAMTITY  * 

100-NETR0)/100  ♦  EVE.HCI 

CASE  40  <  USE  EVE  .AND.  USE  EVE  <  80 

REPLACE  EVE  HCI  NITK  (F->EVE15«1S  *  F->EVE25«25  * 

(USE  EVE-40) «F->EVE40)  t  BUANTITY  •  HETRO/100 
SELECT  A 
SKIP 

SELECT  3 

REPLACE  EVE.HCI  NITH  (F->EVE15»15  ♦  F->EVE25»25  ♦ 

(USE  EVE-40) »F->EVE40)  •  BUANTITY  ♦  (100-HETR0)/100  ♦ 

EVE.HCI 

CASE  15  <  USE  EVE  .AND.  USE  EVE  <«  40 

REPLACE  EVE.HCI  KITH  (F->EVE15il5  *  (USE  EVE-15) *F->EVE25) 
f  BUANTITY  ♦  HETRO/100 
SELECT  6 
SKIP 

SELECT  3 

REPLACE  EVE  HCI  NITH  (F->EVE15fl5  ♦  (USE  EVE-15)#F->EVE25) 
f  BUANTITY  »  (100-HETR0)/100  ♦  EVE  HCI 
CASE  USE.EVE  <*  15 

REPLACE  EVE  HCI  NITH  USE  EVEiF->EVE15  *  BUANTITY  f  NETRO/100 

SELECT  A 

SKIP 

SELECT  3 

REPLACE  EVE.HCI  NITH  USE.EVEtF->EVE15  ♦  BUANTITY 
«  (100-NETR0)/100  *  EVE  NCI 
ENDCASE 

SELECT  A 
SKIP  -1 
SELECT  3 


REPLACE  NI6HT  HCI  NITH  (USE  NIGHT  «  F->HEEKEND  i  BUANTITY)  i  NETRO/100 

SELECT  A 

SKIP 

SELECT  3 

REPLACE  NIGHT  NCI  NITH  (USE  NIGHT  «  F->NEEKEND  t  BUANTITY) 


•  (100-HETR0)/100  *  NI6HT  HCI 


REPLACE  ACCES.NCI  HITN  HCI.ACCESS  *  OUANTITY 

IF  DAY  nCI  ♦  EVE.HCI  ♦  NIBHT.Ittl  >«  QUAHTITYtHCI.HIM 

REPLACE  nCI.TOTAL  HITH  DAY  RCl4EVE.HCHNI6NT.nCI^ACCES.HCI 
ELSE 

REPLACE  NCI  TOTAL  NITH  QUANTITY«HCI  NIN  *  ACCES  NCI 
ENDIF 

SKIP 

ENODQ 

SUN  NCI.TOTAL  TO  NCI.TOTE 

IF  NCI  TOTE  <  NCILONCOS 
NCILOHCOS  «  NCI  TOTE 
SELECT  3 
USE 

SELECT  A 
USE  NCIOUT 
ZAP 

APPEND  FRON  \NEHNET\RESULTS 
SELECT  3 
USE  RESULTS 
ENDIF 


SAVE  TO  \NENNET\TERP 
RETURN 


SET  ECHO  OFF 


TYPE  \IIEHNET\SKYLINE.PRG 


CLEAR  ALL 
RESTORE  FROM  TEHP 
SELECT  2 

USE  \RESULTS\(FILE 
SELECT  5 
USE  POISSON 
SELECT  6 
USE  SKYLINE 
SELECT  7 

USE  \TABLES\SBSOUT 

PEAKTOTAL  «  PEAKHRl  *  PEAKHR2  *  PEAKHR3  *  PEAKHR4  *  PEAKHRS  *  PEAKNRA 
SELECT  2 

SUN  USE  DAY  •  QUANTITY  TO  DAYTOTAL  FOR  OUT 

sun  (USi  EVE  *  USE  NI6HT)  «  QUANTITY  TO  NI6HTT0TAL  FOR  OUT 

SOTO  TOP 

SELECT  5 

LOCATE  FOR  IP  >»  PEAKTOTAL 

SELECT  i 
ZAP 

USEAV6  ■  (DAYTOTAL  «  N!SHTTOTAL)/E->TRUNKS 
RESTORE  FROn  \TABLES\CONSTANT  ADDITIVE 

TIERNUn  >  I 

DO  HHILE  TIERNUN  <>  4 
APPEND  BLANK 

REPLACE  SBS  LINES  KITH  E*)TRUNKS 

REPLACE  ACCES.SBS  NITH  SBS  ACCESS  •  SBS.LINES 

REPLACE  TIER  NITH  B->TIER 

REPLACE  PERCENT  NITH  B->PERCENT 

REPLACE  SBSHRS.DAY  NITH  DAYTOTAL  •  PERCENT/ 100 

REPLACE  SB8HRS  EVE  NITH  NI8HTT0TAL  •  PERCENT/100 

SELECT  7 

LOCATE  FOR  USA6E  HRS  >  USEAV6  .OR.  EOFO 
SKIP  -1 
SELECT  6 

NANE  «  'TIER'  ♦  STR(TIER,1,0)  ♦  '.DAY' 

REPLACE  DAY  SBS  NITH  SBSHRS  DAY  f  6->INANE  •  0.6 
NANE  •  TIER'  ♦  STR(TIER,1,0)  ♦  '  OTHR' 


REPLACE  NI6HT.SBS  HITH  SBSHRS.EVE  •  6->tNAnE  t  0.6 


TIERNUn  •  TIERNUH  *  t 

SELECT  2 

SKIP 

SELECT  6 
ENDOO 


Sim  DAY  SBS  «  NIGHT  SBS  TO  TOTAL  SBS 
SOTO  TOP 

IF  liSEAVS  <  SBS.HRSflIN  .AND.  TOTAL  SBS  <  SBS  KIN*  SBS.LINES 
REPLACE  SBS  TOTAL  NITN  SBS  KIN  *  SBS  LIIC5  *  ACCES  SBS 
ELSE 

REPLACE  SBS  TOTAL  HITH  TOTAL  SBS  *  ACCES  SBS 


RETURN 
SET  ECHO  OFF 
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TYPE  \IIEWIET\SPRNT0UT.PR6 


RESTORE  FROn  TENP 

SELECT  4 

USE 

SELECT  i 

USE  SPRNTOUT  ALIAS  SPRNT 
ZAP 

APPEND  FROM  NEHNET 
SOTO  TOP 

DO  NHILE  .NOT.  EOFO 

REPLACE  QUANTITY  NITH  EOTRUNNS 
REPLACE  USE  DAY  NITH  USE  DAY/QUANTITY  t  FACTOR 
REPLACE  USE  EVE  NITH  USE  EVE/QUANTITY  «  FACTOR 
REPLACE  USE  NIGHT  NITH  USE  NISHT/KiANTITY  •  FACTOR 
SKIP 
ENDDO 

SOTO  TOP 

DO  NHILE  .NOT.  EOFO 

SELECT  6  ALIAS  SPRNT 
USE  \TABLES\SPRNTOUT 
LOCATE  FOR  BAND  «  A->BAN0 
SELECT  1 
DO  CASE 

CASE  USE.DAY  >«  100 

REPLACE  DAY.SPNT  NITH  (F->DAY0.40t40  ♦  F->0AY40.70i30  ♦ 
F->DAY70.100»30  ♦  (USE.DAY-lO0)«F->DAYIOOPLUS)  »  QUANTITY 
I  NETRO/iOO 
SELECT  6 
SKIP 
SELECT  1 

REPLACE  DAY.SPNT  NITH  (F->DAY0.40«40  ♦  F->DAY40.70*30  ♦ 
F->DAY70  100*30  *  (USE  DAY-100)«F->DAY100PLUS)  «  QUANTITY 
•  (100-HETM)/100  *  DAY  8PNT 
CASE  70  <  USE  DAY  .AND.  USE  DAY  <  100 

REPLACE  DAY  SPNT  NITH  (F->0AY0  40*40  +  F->0AY40  70*30  ♦ 
(USE  0AY-70)*F->DAY70  100)  *  QUANTITY  *  HETRO/100 
SELECT  6 
SKIP 
SELECT  1 

REPLACE  DAY  SPNT  NITH  (F->0AY0.40*40  ♦  F->DAY40  70*30  ♦ 
(USE  DAY-70) *F->0AY70  100)  *  QUANTITY  *  (100-HETR0)/100  ♦ 
DAY  SPNT 


(USE 


CASE  40  <  USE.DAY  .AND.  USE.DAY  <«  70 
REPLACE  DAY  SPNT  KITH  (F->DAY0  40*40  * 

.DAY-40)*F->DAY40  70)  *  QUANTITY  «  NETRO/100 

SELECT  6 
SKIP 
SELECT  1 

REPLACE  DAY.SPNT  KITH  (F->DAY0.40»40  ♦  (USE 

DAY-40) •F->DAY40  70)  «  QUANTITY  •  (100-HETRO)/100  *  DAY  SP 

IT 

CASE  USE.DAY  <«  40 

REPLACE  DAY  SPNT  KITH  USE.0AYtF->DAY0  40  »  QUANTITY  •  NETROMOO 
SELECT  6 
SKIP 
SELECT  1 

REPLACE  DAY  SPNT  KITH  USE.DAYtF->DAYO  40  •  QUANTITY 
*  (iOO-HETRO)/lO0  *  DAY  SPNT 
ENDCASE 
SELECT  b 
SKIP  -1 
SELECT  1 

DO  CASE 

CASE  USE.EVE  >«  100 

REPLACE  EVE.SPNT  KITH  (F->EVE0.40*40  ♦  F->EVE40.70«30  ♦ 

F->EVE70  100*30  ♦  (USE  EVE-100) *F->EVE100PLUS)  *  QUANTITY 

*  RETRO/ 100 

SELECT  b 
SKIP 
SELECT  1 

REPLACE  EVE.SPNT  KITH  (F->EVE0.40*40  ♦  F->EVE40.70*30  ♦ 
F->EVE70.100*30  ♦  (USE.EVE-100)*F->EVE100PLUS)  *  QUANTITY 

*  (100-HETR0)/100  ♦  EVE  SPNT 
CASE  70  <  USE  EVE  .AND.  USE  EVE  <  100 

REPLACE  EVE.SPNT  KITH  (F->EVE0.40*40 
(USE  EVE-70) *F->EVE70  100)  *  QUANTITY  * 

SELECT  b 
SKIP 
SELECT  1 

REPLACE  EVE.SPNT  KITH  (F->EVE0.40*40 
(USE  EVE-70) *F->EVE70  100)  «  QUANTITY  * 

EVE  SPNT 

CASE  40  <  USE  EVE  .AND.  USE  EVE  <«  70 
REPLACE  EVE  SPNT  KITH  (F->EVE0.40*40 
EVE-40) *F->EVE40  70)  *  QUANTITY 

SELECT  b 
SKIP 
SELECT  1 

REPLACE  EVE  SPNT  KITH  (F->EVE0.40*40 
EVE-40) *F->EVE40  70)  *  QUANTITY  *  (100-HETR0)/100 

NT 

CASE  USE  EVE  <•  40 

REPLACE  EVE  SPNT  KITH  USE  EVE*F->EVE0  40  *  QUANTITY  *  HETRO/100 


♦  F->EVE40  70*30  ♦ 
HETRO/100 


♦  F->EVE40  70*30  ♦ 
(lOO-HETROWlOO  ♦ 


*  (USE 

*  RETRO/ 100 


*  (USE 

♦  EVE.SP 


SKIP 
SELECT  1 

REPLACE  EVE.SPNT  MITH  USE.EVE»F->EVEO  40  t  QUANTITY 
•  (lOO-NETRai/lOO  *  EVE  »>NT 
ENDCASE 

SELECT  6 
SKIP  -1 
SELECT  1 

REPLACE  NI6HT  SPNT  NITH  (USE  NI6HT  >  F->NEEKEND  •  QUANTITY)  i  NETRO/100 
SELECT  A 
SKIP 
SELECT  1 

REPLACE  NI6HT.SPNT  NITH  (USE.NI6HT  »  F->HEEKEND  •  QUANTITY) 

•  (i00-HETR0)/100  *  NI6HT.SPNT 


SKIP 

ENODQ 

SELECT  1 

SUN  DAY  SPNT  ♦  EVE  SPNT  ♦  NI6HT.SPNT  TO  TOTAL  SPNT 
SOTO  TOP 

REPLACE  ACCES.SPNT  NITH  SPNTACCESS  *  QUANTITY 

IF  TOTAL.SPNT/QUANTITY  <  SPRNT.HIN 

REPLACE  SPNT  TOTAL  NITH  SPRNT  NIN  «  QUANTITY  *  ACCES  SPNT 
ELSE 

REPLACE  SPNT  TOTAL  NITH  TOTAL  SPNT  *  ACCES  SPNT 
ENDIF 

SAVE  TO  \NEHNET\TENP 
RETURN 


TYPE  \NemET\0UTST0RE.PR6 


1 


CLEAR  ALL 
RESTORE  FRON  TEHP 

RESTORE  FROM  \RESULTS\tiFILENAIIE  ADDITIVE 

RESTORE  FROH  TEHP  ADDITIVE 

SAVE  ALL  LIKE  PEAKHR?  TO  \NENNET\TEHP2 

RELEASE  ALL  EXCEPT  ?Ii 

RELEASE  NI6HTSUK,  LINES 

RESTORE  FROH  TEHP2  ADDITIVE 

SAVE  TO  \NEHNET\TEnP2 

RESTORE  FROH  TEHP 

RELEASE  ALL  EXCEPT  HAX 

RESTORE  FROH  TENP2  ADDITIVE 

SAVE  TO  \NEiniET\TEnP2 

RESTORE  FROH  TEHP 

RELEASE  ALL  EXCEPT  HETRO 

RESTORE  FROH  TEHP2  ADDITIVE 

OPTIHIIE  »  .T. 

P.OUT  «  HI6H.P 

IF  HI6H.P  <  10 

FIELDOUT  »  'P*  ♦  STRIHISH  P,1,0) 

ELSE 

FIELDOUT  -  'P'  ♦  STRIHIGH  P,2,0» 
ENOIF 


HAXQUT  «  HAX 
PEAKHRIOUT  «  PEAKHRl 
PEAKHR20UT  ■  PEAKHR2 
PEAKHR30UT  «  PEAKNR3 
PEAKHR40UT  «  PEAKKR4 
PEAKHRSOUT  «  PEAKHR3 
PEAKHR60UT  «  PEAKHR6 
RELEASE  HIGH  P,  FIELD,  RAX 
RELEASE  ALL  LIKE  PEAKHR? 

SAVE  TO  \RESULTS\IFILENAHE 

NAHE  >  FILENANE  *  '.ATT' 

COPY  FILE  ATITOUT.DBF  TO  \RESULTS\IHAHE 
NAHE  «  FILENANE  *  '.HCI' 

COPY  FILE  NCIOUT.DIF  TO  \RESULTS\(NANE 
NAHE  «  FILENANE  *  '.8PT' 

COPY  FILE  8PRNT0UT.DBF  TO  \RESULTSMNARE 
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NAME  *  FILENAHE  *  '.SBS* 

COPY  FILE  SKYLINE.DBF  TO  \RESULTS\liNAHE 
MAKE  «  FILENAHE  «  ‘.NEN* 

COPY  FILE  NEHNET.DBF  TO  \RESULTS\(NANE 

RETURN 


SET  ECHO  OFF 


TYPE  \NEHNET\INIIATS.PR6 


CLEAR  ALL 
RESTORE  FROn  TENP 
RELEASE  ALL  EICEPT  FILEi 
USE  \RESULTS\i(FILE 

COPY  TO  \NEIINET\NENNET  FIELDS  BAND,  OUT,  QUANTITY,  USE  DAY,  USE  EVE,  USE  NI 
6HT  FOR  .NOT.  OUT 

LOCATE  FOR  .NOT.  OUT  .AND.  BAND  >  0 

DO  HHILE  BAND  >  0  .AND.  .NOT.  EOFO 
SKIP 
ENDDO 

SKIP  -1 
NAX  >  BAND 
RON  *  5 
PEAKHRI  •  0.0 
PEAKHR2  «  0.0 
PEAKHR3  »  0.0 
PEAKHR4  >  0.0 
PEAKHR5  «  0.0 
PEAKHR6  «  0.0 
NUMBER  «  1 
CLEAR 

•  2,S  SAY  'ENTER  TOTAL  PEAK  HOUR  IN  MATS  TRAFFIC  IN  NINUTES  FOR  EACH  BAND:' 

DO  NHILE  NUHBER  <*  NAX 

TENP  »  'PEAKHR'  ♦  STR (NUMBER, 1,0) 

I  ROM, 10  SAY  'BAND'  ♦  STR( NUMBER, 1,0 I  ♦  ';  '  SET  BTEMP  PICTURE  '999.9' 
NUMBER  «  NUHBER  *  1 
RON  >  RON  4  2 

ENDDO 

READ 

USE  NENNET 
RON  >  4 
HI6H  P  «  0 
TEMP  »  0 
PEAKNUM  «  1 

LOCATE  FOR  BAND  >  TEMP 


DO  HHILE  .NOT.  OUT  .AND.  .NOT.  EOFO 
TENP  «  BAND 
PEAKTOTAL  =  0 

DO  NNILE  PEAKNUN  <>  TENP 

NANEPK  «  ‘PEAKHR’  *  STR( PEAKNUN, 1,0) 
PEAKTOTAL  *  PEAKTOTAL  +  MANEPK 
PEAKNUN  *  PEAKNUN  ^  1 
ENDDO 


SUN  QUANTITY  TO  LINES  FOR  BAND  >  TENP  .AND.  .NOT.  OUT 
SELECT  2 
USE  POISSON 

LOCATE  FOR  TRUNKS  <  LINES 
NUNBER  =  1 
FLA6  »  .T. 

DO  HHILE  NUNBER  SO  .AND.  FLA6 
IF  IttlNBER  >  9 

FIELD  «  'P'  ♦  STR(NUNBER,2,01 
ELSE 

FIELD  •  'P*  ♦  STR (NUNBER, 1,0) 

ENDIF 

IF  IFIELD  >*  PEAKTOTAL 
FLAB  =  .F. 

ENDIF 

NUNBER  *  NUNBER  *  1 
ENDDO 

I  R0N,40  SAY  ’BAND’  ♦  STR(TENP,1,0)  +  *  TRUNKS?  ’  SET  FIELD 

IF  NUNBER  -1  >  HIGH  P 
HIGH  P  «  NUNBER  -1 
ENDIF 

RON  >  RON  f  2 
SELECT  1 

LOCATE  FOR  BAND  >  TENP 
ENDDO 

CLEAR  GETS 

FLAB  *  .T. 

DO  NHILE  FLAG 
TENP2  *  HIGH.P 

I  20,5  SAY  'PRESS  RETURN  KEY  TO  USE  DEFAULT  ’P*  VALUE  DR  ENTER  YOUR  ONN: 
GET  HIGH  P  PICTURE  ’99’ 


IF  HI6H  P  <>  SO  .AND.  HI6H  P  >-  1 
FLAi  «  .F. 

ELSE 

H16H.P  *  TEHP2 

I  22,5  SAY  "P'  VALUE  HUST  BE  1  THRU  50.  REENTER  VALUE. 
ENOIF 
ENDOO 

HAIT 

USE  NENNET 
ZAP 

NUMBER  «  1 

DO  HHILE  NUMBER  <«  MAT 
APPEND  BLANK 
REPLACE  BAND  NITN  NUMBER 
REPLACE  OUT  NITH  .F. 

NUMBER  ■  NUMBER  *  1 
ENDDQ 

CLEAR 

>  SOTO  TOP 

I  5,10  SAY  ’ENTER  ACTUAL  MEASURED  TRAFFIC  IN  HOURS  PER  MONTH;’ 

DO  HHILE  .NOT.  EQFO 

I  11,10  SAY  ’BAND’  >  STR (BAND, 1,0) 

I  13,10  SAY  ’  DAY:’  SET  USE  DAY 

I  15,10  SAY  ’  EVENINS;’  SET  USE'eVE 

I  17,10  SAY  ’NI6HT/NEEKEND:’  SET  USE'nISHT 
READ 
SKIP 
ENDDO 

HAIT 

SAVE  TO  \NENNET\TEMP 
DO  INCPUTE 
RETURN 


SET  ECHO  OFF 


TYPE  \NEHNET\INCPUTE.PR6 


RESTORE  FROH  TEMP 
CLEAR 

USE  POSSIBLE 

DO  CASE 

CASE  MAX  ■  1 

LOCATE  FOR  ONE  .AND.  .NOT.  THO  .AND.  .NOT.  THREE  .AND. 

.  FOUR  .AND.  .NOT.  FIVE  .AND.  .NOT.  SIX 

I  23, S  SAY  ‘TAKE  A  5  HINUTE  BREAK  HHILE  I  DO  SORE  HORK.‘ 

CASE  NAX  «  2 

LOCATE  FOR  THO  .AND.  .NOT.  THREE  .AND.  .NOT.  FOUR  .AND. 

T.  FIVE  .AND.  .NOT.  SIX 

I  23,5  SAY  ‘TAKE  A  5  HINUTE  BREAK  HHILE  I  DO  BONE  HORK. ‘ 

CASE  NAX  ■  3 

LOCATE  FOR  THREE  .AND.  .NOT.  FOUR  .AND.  .NOT.  FIVE  .AND.  .NOT.  SIX 
•  23,5  SAY  ‘TAKE  A  5  HINUTE  BREAK  HHILE  I  DO  SONE  HORK. ' 

CASE  HAX  <  4 

LOCATE  FOR  FOUR  .AND.  .NOT.  FIVE  .AND.  .NOT.  SIX 
I  23,5  SAY  ‘TAKE  A  10  HINUTE  BREAK  HHILE  I  DO  SONE  HORK. ‘ 

CASE  HAX  «  5 

LOCATE  FOR  FIVE  .AND.  .NOT.  SIX 
I  23,5  SAY  ‘TAKE  A  15  HINUTE  BREAK  HHILE  I  DO  SOHE  HORK.‘ 

CASE  NAX  *  b 
LOCATE  FOR  SIX 

I  23,5  SAY  ‘CONE  BACK  IN  30  NINUTES.‘ 

ENDCASE 
SELECT  2 

USE  \RESULTS\irFILE 

STORE  9WW9W  TO  AHLOHCOS 

SELECT  3 
USE  RESULTS 

SELECT  1 
LASTCOUNT  >  0 

DO  HHILE  .NOT.  EOF!) 

DO  CASE 

CASE  NAX  «  1 

LOCATE  FOR  ONE  .AND.  .NOT.  THO  .AND.  .NOT.  THREE  .AND. 

.NOT.  FOUR  .AND.  .NOT.  FIVE  .AND.  .NOT.  SIX 
CASE  HAX  «  2 


LOCATE  FOR  TNO  .AND.  .NOT.  THREE  .AND.  .NOT.  FOUR  .AND. 

.NOT.  FIVE  .AND.  .NOT.  SIX 
CASE  HAX  >  3 

LOCATE  FOR  THREE  .AND.  .NOT.  FOUR  .AND.  .NOT.  FIVE  .AND.  .NOT.  SIX 
CASE  NAX  «  4 

LOCATE  FOR  FOUR  .AND.  .NOT.  FIVE  .AND.  .NOT.  SIX 
CASE  HAX  «  S 

LOCATE  FOR  FIVE  .AND.  .NOT.  SIX 
CASE  NAX  «  & 

LOCATE  FOR  SIX 

ENDCASE 
COUNTER  >  0 

DO  NHILE  COUNTER  <  LASTCOUNT  .AND.  .NOT.  EOF!) 

CONTINUE 

COUNTER  <  COUNTER  *  1 
ENDDO 


LASTCOUNT  *  LASTCOUNT  *  1 

I  23,5  SAY  'CALCULATINB  ATIT  COST  FOR  C0NFI6URATI0N  ‘  « 

,0)  ♦ 

IF  .NOT.  EOFO 
SELECT  3 
ZAP 

IF  A‘>ONE 
APPEND  BLANK 
REPLACE  BAND  HITH  I 
ENDIF 

IF  A->TNO 
APPEND  BLANK 
REPLACE  BAND  NITH  2 
ENDIF 

IF  A->THREE 
APPEND  BLANK 
REPLACE  BAND  NITH  3 
ENDIF 

IF  A->FOUR 
APPEND  BLANK 
REPLACE  BAND  NITH  4 
ENDIF 

IF  A->FIVE 
APPEND  BLANK 
REPLACE  BAND  NITH  5 


STRCLASTCOU 


TYPE  \NEHNET\INLINES.PR6 


RESTORE  FROn  TEMP 
LASTBAND  «  0 
SELECT  4 
USE  RENNET 

SUN  USE.OAY  *  USE  EVE  *  USE.NI6HT  TO  SUHEASURED 
SOTO  TOP 
SELECT  2 

SUN  (USE  DAY  *  USE  EVE  *  USE  NISHTt  *  QUANTITY  TO  OLVIBILLED  FOR  .NOT.  OUT 
FACTOR  •  SUHBILLEO/SUHEASURED 


SELECT  3 
SOTO  TOP 

DO  HNILE  .NOT.  EOFO 

NUNBER  >  LASTBAND  *  1 

STORE  0  TO  PEAKSUN,  OAYSUH,  EVESUN,  NISNTSUH 

DO  NHILE  NUNBER  <«  BAND 

NANE  *  'PEAKNR'  *  STR (NUNBER, 1,0) 

PEAKSUN  «  PEAKSUN  *  (NANE 
NUNBER  *  NUNBER  *  1 

ENDDO 

SELECT  4 

DO  NHILE  BAND  <>  C->BAND  .AND.  .NOT.  EOFO 
DAYSUN  «  DAYSUN  *  USE.DAY 
EVESUN  <  EVESUN  *  USE.EVE 
N16HTSUN  >  NISNTSUN  *  USE  NISHT 
SKIP 

ENDDO 


SELECT  5 
USE  POISSON 

IF  HIBH.P  <«  9 

P  *  'P'  ♦  STR(HIBH  P,l,0) 
ELSE 

P  «  'P'  ♦  STR(HIBH  P,2,0) 
ENDIF 


TYPE  \NEIINET\ATIiTIN.PR6 


RESTORE  FROM  TEHP 

RESTORE  FROH  \TABLES\CONSTANT  ADDITIVE 
SELECT  & 

USE  \TABLES\ATt(TIN 


SELECT  3 
SOTO  TOP 

DO  HNILE  .NOT.  EOFO 
SELECT  6 

LOCATE  FOR  BAND  *  C->BAND 
SELECT  3 
DO  CASE 

CASE  USE.DAY  >>  SO 

REPLACE  DAY.ATT  NITH  (F->0AY15»15  ♦  F->DAY25»25  ♦  F->0AY40*40  ♦ 
(USE  DAY-SO)»F->DAYSO)  •  QUANTITY 
CASE  40  <  USE  DAY  .AND.  USE  DAY  <  80 

REPLACE  DAY.ATT  NITH  (F->DAYI5#15  ♦  F->DAY25i25  ♦ 
(USE.DAY-40)*F->DAY40)  *  QUANTITY 
CASE  IS  <  USE.DAY  .AND.  USE.DAY  <*  40 

REPLACE  DAY.ATT  NITH  (F->0AY15*I5  ♦  (USE  DAY-15) ♦F->DAY25) 

•  QUANTITY 
CASE  USE.DAY  <«  IS 

REPLACE  DAY  ATT  NITH  USE  DAY»F->DAY15  *  QUANTITY 

ENDCASE 
DO  CASE 

CASE  USE.EVE  >>  80 

REPLACE  EVE.ATT  NITH  (F->EVE15*15  ♦  F->EVE25»25  ♦ 

F->EVE40i40  +  (USE.EVE-B0)»F->EVE80)  *  QUANTITY 
CASE  40  <  USE  EVE  .AND.  USE  EVE  <  BO 

REPLACE  EVE  An  NITH  (F->EVE15«15  ♦  F->EVE25f25  ♦ 
(USE.EVE-40)tF->EVE40)  #  QUANTITY 
CASE  15  <  USE.EVE  .AND.  USE.EVE  <*  40 
REPLACE  EVE  ATT  NITH  (F->EVE15#15  ♦ 

SE.EVE-15)*F->EVE25)  •  QUANTITY 
CASE  USE  EVE  <>  13 

REPLACE  EVE  ATT  NITH  USE  EyE>F->EVElS  t  QUANTITY 

ENDCASE 

REPLACE  NI8HT  ATT  NITH  (USE  NI8HT  *  F->NEEKEND  t  QUANTITY) 

REPLACE  ACCES.ATT  NITH  F->ACCESS  *  QUANTITY 


1,4. 


y 


I 


TYPE  \NEHNET\INST0RE.PR6 


CLEAR  ALL 
RESTORE  FROM  TEMP 

RESTORE  FROH  VRESULTSMFILENANE  ADDITIVE 

RESTORE  FROM  TEHP  ADDITIVE 

SAVE  ALL  LIKE  PEAKHR?  TO  \NEHNET\TEflP2 

RESTORE  FROH  TEHP 

RELEASE  ALL  EICEPT  ?Ii 

RELEASE  NI6HTSUH,  LINES 

RESTORE  FROH  TEHP2  ADDITIVE 

SAVE  TO  \NENNET\TENP2 

RESTORE  FROH  TEHP 

RELEASE  ALL  EICEPT  NAX 

RESTORE  FROH  TEHP2  ADDITIVE 

OPTIHI2E  «  .T. 

P.IH  «  HI6H.P 

IF  HI6H  P  <  10 

FIELDIN  «  ‘P*  ^  STRIHISH  P,1,0) 

ELSE 

FIELDIH  «  'P*  ♦  STRIHIBH  P,2,0) 

ENDIF 

HAXIN  «  NAX 
PEAKHRIIN  «  PEAKHRl 
PEAKHR2IN  «  PEAKHR2 
PEAKHR3IN  ■  PEAKHR3 
PEAKHR4IN  «  PEAKHR4 
PEAKHR5IN  «  PEAKHR3 
PEAKHR6IN  «  PEAKHRA 
RELEASE  HIGH  P,  FIELD,  NAX 
RELEASE  ALL  LIKE  PEAKHR? 

SAVE  TO  \NEWET\TEHP2 
RESTORE  FROH  TENP2 
RESTORE  FROH  \RESULTS\IFILENANE 
RESTORE  FROH  TENP2  ADDITIVE 
SAVE  TO  VRESULTSMFILENANE 

NAHE  «  FILENAHE  *  '.TIN' 

COPY  FILE  ATITIN.DBF  TO  VRESULTSMNAHE 
NAHE  «  FILENAHE  *  '.HEN' 

USE  VRESULTSMFILENANE 

IF  OUT 


TYPE  \IIENNET\0UTPUT.PR6 


DO  WILE  .T. 

CLEAR 

STORE  ■  *  TO  CHOICE 

I  8,25  SAY  '-1-  DISPLAY  RESULTS  ON  SCREEN.* 

I  10,25  SAY  *-2-  PRINT  OUT  THE  RESULTS.* 

•  13,25  SAY  *-0-  FINISHED.* 

•  17,25  SAY  *CHOOSE  ONE:*  SET  CHOICE  PICTURE  *9 
READ 

DO  CASE 

CASE  CHOICE  «  *1* 

RESTORE  FRON  TEHP 
DO  DISPLAY 
CASE  CHOICE  >  *2* 

RESTORE  FROH  TEHP 
DO  PRINT 

CASE  CHOICE  «  ‘O' 

RETURN 


ENDCASE 


TYPE  \HEllHET\01SPLAY.PfiG 


CLEAR 

TEXT 


OPTINIZE&  RESULTS 


A  report  iuuary  Mill  be  diepUyed  Tor  etch  carrier. 

The  display  Mill  Mait  betHeen  reports.  Press  (CtrlXS) 
to  stop  the  scrolling.  Press  <Ctrl><S>  again  to  resuse. 


ENDTEXT 

MAIT 

CLEAR 

USE  \RESULTS\bFILENAHE 
RESTORE  FROn  \RESULTS\lrFILENANE 

IF  OUT 

00  OISPATT 
00  DISPHCI 
00  DISPSPNT 
00  DISPSBS 
00  DISPOUT 
ENDIF 


USE  \RESULTS\bFILENANE 
LOCATE  FOR  .NOT.  OUT 

IF  BAND  >  0 
CLEAR 

00  DISPTIN 
DO  OISPIN 
ENDIF 

RETURN 


SET  ECHO  OFF 


TirPE  \HEIItlET\0ISPATT.PR6 


CLEAR 

NAME  «  FILEHAHE  ♦  '.ATT* 

USE  \RESULTS\iiNANE 

RESTORE  FROn  \TA6LES\C0NSTANT  ADDITIVE 
sun  QUANTITY  TO  NUHLINES 
SELECT  2 

USE  \TABLES\ATt<TOUT 

IF  NUHLINES  *  0 
CONECTQTAL  «  0 
ELSE 

CONECTOTAL  *  CONNECTl  *  (NUnLINES-l)*C0NNECT2 
ENDIF 

SELECT  I 

LINEl  «  '  Access  charge  is  I"  *  STR(B->ACCESS,6,2)  *  '  per  line.' 

LINE2  ^  '  Connection  charge  is  I*  *  STR(B*>C0NNkTl,&,2)  *  '  For  the  First 

line  and  ' 

LINES  >  '  r  t  STR(B->C0NNECT2,&,2)  *  ’  For  each  successive  line.' 

LINE4  *  '  Total  connection  charge  For  this  conFiguration  is  $'  *  STRiCONECT 

0TAL,7,2)  ♦  '.' 

LINES  *  '  Niniaue  usage  charge  is  I'  *  STR(ATT.NIN,6,2)  *  '  per  line  exclus 
ive  oF  access  charges.' 

REPORT  FORn  \NONNET\ATIiTOUT  HEADIN6  'OPTIHIZED  C0NFI6URATI0N:  '  *  FIELDOUT 

HAIT 

? 

? 

? 

?  LINEl 
?  LINE2 
?  LINES 
?  LINE4 

IF  ATT  niN  >  0 
1  LINES 
ELSE 
ENDIF 
NAIT 
RETURN 


TYPE  \NEIINET\DISPNCI.PP6 
CLEAR 

RARE  «  FILENAHE  ^  ‘.HCI* 

USE  \RESULTS\MAflE 

RESTORE  FROH  \TABLES\CDRSTANT  ADDITIVE 
sun  QUANTITY  TO  NUnilNES 
IF  NUNLINES  ■  0 
CONECTOTAL  >  0 
ELSE 

CONECTOTAL  •  HCICONNECT  «  NUNLINES 
ENDIF 


LINEl  >  ’  Acciss  charge  is  t*  *  STR(HCI.ACCESS,A,2)  +  ‘  per  line.' 

LINE2  >  '  Connection  charge  is  $'  4  STRlnCIC0NNECT,6,2)  4  •  per  line.' 

LINES  s  '  Total  connection  charge  for  this  configuration  is  )'  4  STRCCO 

NECT0TAL,7,2)  4 

LINE4  •  *  Niniiui  usage  charge  is  I'  4  STR(NCI.NIN,6,2)  *  '  per  line  e 

Delusive  of  access  charges.' 


REPORT  FORn  \N0HNET\NCI0UT  HEADING  *  OPTINIZED  CONFISURATIONt 

4  FIELDOUT  4  •  •  4  4  STR(HETR0,3,0)  4  'I  ON-NET/'  4 

STR(100-HETR0,3,0)  4  'I  OFF-NET'  4  •)' 

NAIT 

f 


w 


?  LINEl 
?  LINE2 
?  LINES 
IF  NCI  NIN  >  0 
?  LINEA 
ELSE 
ENDIF 
NAIT 

RETURN 


SET  ECHO  OFF 


-^1 


TYPE  \NE«NET\DISPSPKT.PR6 


CLEAR 

NAHE  »  FILENARE  ♦  '.SPT' 

USE  \RESULTS\lNAnE 

RESTORE  FROn  \TABLES\CONSTANT  ADDITIVE 
IF  BUANTITY  «  0 
CONECTOTAL  «  0 
ELSE 

CONECTOTAL  «  SPNTCONECT  «  BUANTITY 
ENDIF 

LINE!  *  *  Access  charge  is  I*  *  STR(SPNTACCESS,6,2)  *  '  per  line.* 

LINE2  «  '  Total  eonthly  access  charge  Tor  this  configuration  is  t*  *  ST 

RISPNTACCESS  t  BUANTITY, 7, 2)  ♦  *.* 

LINE3  »  '  Connection  charge  is  $'  *  STR (SPNTCONECT, 6, 2)  *  *  per  line.' 

L1NE4  s  '  Total  connection  charge  for  this  configuration  is  t*  *  STR(C0 
KECTOTAL,7,2l  ♦ 

LINES  *  *  Hinieui  usage  charge  is  I*  *  STR(SPRNT.NIN,6,2)  *  'per  line 
exclusive  of  access  charges.' 

LINE6  *  '  Total  eonthly  cost  for  this  configuration  is  $'  *  STRISPNT  TOTAL, 

12,2)  ♦  '.' 

REPORT  FORH  SPRNTOUT  HEADIN6  '  DPTINIZED  CONFISURATION:  '  *  FIELD 

OUT  ♦  *  STR(KETR0,3,0I  ♦  'I  ON-NET/*  ♦  STR(I00-HETR0,3 

,0)  +  'I  OFF-NET'  ♦  ')• 

NAIT 

0 


7  LINEl 
?  LINE2 
? 

?  LINE3 
?  LINE4 
? 

IF  SPRNT  NIN  >  0 


TYPE  \NEIINET\0tSPTIN.PR6 


CLEAR 

NAME  •  FILENAflE  +  *.TIN' 

USE  \RESULTS\ANAI1E 

RESTORE  FROn  \TABLES\CONSTANT  ADDITIVE 
8UH  flUANTITY  TO  NUHLINES 
SELECT  2 

USE  \TABLES\ATITIN 


IF  NUHLINES  <  0 
CONECTOTAL  >  0 
ELSE 

CONECTOTAL  «  CONNECTl  *  (NUHLINES)  •C0NNECT2 
ENDIF 


SELECT  1 

LlNEl  ■  '  Aecm  chtrgi  it  V  *  STR(B*>ACCE8S,A,2)  *  *  pir  line.' 

L1NE2  «  '  Conntetion  chirgt  it  I'  *  STR(B->C0NNECT1,6,2)  *  '  Tor  thi  firtt 

lint  ind  ' 

LINE3  ■  ‘  I*  «  STR(B->C0NNECT2,A,2)  *  '  Tor  itch  lucctttive  line.' 

LINE4  «  '  Total  connection  charge  Tor  thit  conTiguration  it  f  *  STRICONEC 

TOTAL, 7, 2)  ♦ 

LINES  *  '  Hinieue  utage  charge  it  I*  *  STR(ATT.NININ,6,2)  *  '  per  line  excl 
utive  oT  access  charges.' 


REPORT  FORH  \NOHNET\AT(TIN  HEA0IN6  'OPTIHIZED  C0NFI6URATI0N:  '  *  FIELDIN 

NAIT 

n 


?  LINEl 
?  L1NE2 
?  LINE3 
?  LINE4 


IF  ATT.HININ  >  0 


El 

El 


TYPE  \NEiniET\DISPIN.PR6 


CLEAR 

RARE  *  FILENAME  *  '.NEN* 

USE  \RESULTS\INAHE 
LINED  >  '  IN  HATS 

LINEl  «  '  BUSY  HOUR  TRAFFIC 

LINE2  *  '  (Hinutti) 

L1NE3  »  ' 

NO' 

NUMBER  «  1 

LOCATE  FOR  .NOT.  OUT 


IN  NATS' 

MONTHLY  TRAFFIC' 

(Houri) ' 

EVENING  NI6HT/HEEKE 


DO  HHILE  NUMBER  <*  HAXIN 

PEAKNAHE  «  'PEAKHR'  *  STR(BAND,1,0)  *  'IN' 
LINENARE  »  'LINE'  *  STRIBANO  4  3,1,0) 
liLINENANE  *  '  BAND  '  4  STR{BAND,1,0)  4  ' 
,6,11  4  '  '4  STRIUSE  0AY,6,2)  4  • 

)  4  '  *4  STR(USE.NI6HT,6,2) 

SKIP 

NUMBER  >  NUMBER  4  1 
ENDDO 

LOCATE  FOR  .NOT.  OUT 


?  LINED 
?  LINEl 
?  LINE2 
?  LINE3 
? 

NUMBER  *  1 

DO  NHILE  NUMBER  <«  HAXIN 

LINENARE  >  'LINE'  4  STRIBAND  4  3,1,0) 

?  (LINENARE 

SKIP 

NUMBER  >  NUMBER  4  1 
ENDDO 


STR ((PEAKNAHE 
STR(USE.EVE,6,2 


TYPE  \IIEHNET\PRINT.PR6 


CLEAR 

TEH 


OPTIKIIEO  RESULTS 


Align  Piper  and  Turn  on  Printer 


ENDTEIT 

HAIT 

CLEAR 

USE  \RESULTS\(FILENANE 
RESTORE  FRON  \RESULTS\IFILENAHE 

IF  OUT 

DO  PRNTATT 
DO  PRNTNCI 
DO  PRNTSPNT 
DO  PRNTSBS 
DO  PRNTOUT 
ENDIF 


USE  \RESULTS\tFILENAnE 
LOCATE  FOR  .NOT.  OUT 

IF  BAND  >  0 
CLEAR 
DO  PRNTTIN 
DO  PRNTIN 
ENDIF 

RETURN 


SET  ECHO  OFF 


V 


«*■ 


TYPE  \NEIINET\PRIITATT.PR6 


CLEAR 

NAME  ■  FILENAME  «  '.ATT' 

USE  \RESULTS\itNANE 

RESTORE  FROM  \TABLES\CQNSTANT  ADDITIVE 
SUM  QUANTITY  TO  NUHLINES 
SELECT  2 

USE  \TABLES\ATltTOUT 

IF  NUHLINES  «  0 
CONECTOTAL  ■  0 
ELSE 

CONECTOTAL  «  CONNECTl  *  (NUHL1NES-I)»C0NNECT2 
ENDIF 

SELECT  1 

LINE!  «  *  Accim  chargt  it  t*  *  STR(B->ACCESS,&,2)  *  '  ptr  lint.' 

LINE2  ■  '  Conniction  charge  is  $'  *  STR(B*>CONNECTl,6|2)  *  '  for  the  first 

lint  and  ' 

LINES  <  '  $'4  STR(B->C0NNECT2,6,2)  *  '  for  each  successive  lint.* 

LINEf  *  '  Total  connection  charge  for  this  configuration  is  I*  4  STRICONECT 

0TAL,7,2I  4 

LINES  «  '  Hiniiue  usage  charge  is  I*  4  STR(ATT.NIN,6,2)  4  '  per  line  exclus 
ive  of  access  charges.' 

REPORT  FORM  \N0HNET\AT(T0UT  HEA0IN6  'OPTIMIZED  C0NFI6URATI0N:  *  4  FIELDOUT 
NOEJECT  TO  PRINT 
SET  PRINT  ON 
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TYPE  \NEHNET\PRNTnCI.PR6 


CLEAR 

MAKE  ■  FILENAHE  *  '.Nd' 

USE  \RESULTS\MAnE 

RESTORE  FROH  \TABLES\CONSTANT  AODITM 
SUN  QUANTITY  TO  NUHLINES 
IF  NUNLINES  «  0 
CONECTOTAL  >  0 
ELSE 

CONECTOTAL  «  NCICONNECT  «  NUHLINES 
ENDIF 


LINE!  «  ‘  Accms  charge  it  f  *  8TR(NCI.ACCESS,6,2)  *  ‘  per  line.' 

LINE2  «  '  Connection  charge  it  I'  *  8TR(NCIC0NNECT,6,2I  *  '  per  line.' 

LINES  ■  '  Total  connection  charge  Tor  thit  configuration  it  $'  *  STRtCO 

NECT0TAL,7,2)  ♦  '.' 

LINE4  •  '  Ninieua  utage  charge  it  t'  *  STR(HCI.HIN,&,2)  *  '  per  line  e 

xclutive  of  accett  chargei.' 

REPORT  FORN  \NOHNET\HCIOUT  HEADING  '  OPTINIZED  C0NFI6URATI0N;  ' 

♦  FIELDOUT  ♦  '  •♦'('♦  STR(NETR0,3,O)  ♦  'I  ON-NET/'  ♦ 

STR(100-HETRO,3,0)  ♦  'I  OFF-NET'  ♦  ')'  TO  PRINT 
SET  PRINT  ON 
? 

? 

? 

?  LINEl 
? 

?  LINE2 
? 

?  LINES 
? 

IF  NCI  NIN  >  0 
?  LINE4 
ELSE 
ENDIF 
? 

SET  PRINT  OFF 
RETURN 


SET  ECHO  OFF 


TYPE  \NEilNET\PRNTSPNT.PR6 


CLEAR 

NAME  «  FILENAHE  +  '.SPT' 

USE  \RESULTS\liNAHE 

RESTORE  FROM  \TABLES\CONSTANT  ADDITIVE 

IF  QUANTITY  «  0 
CONECTOTAL  «  0 
ELSE 

CONECTOTAL  «  SPNTCONECT  »  QUANTITY 
ENDIF 

LINEl  «  '  Accni  chtrgc  is  t*  *  STR(SPNTACCESS,6,2)  *  '  pir  line,* 

LINE2  «  '  Total  aonthly  access  charge  For  this  conFiguration  is  t*  *  ST 

R(SPNTACCESS  a  QUANTITY, 7, 2)  +  *.* 

LINES  *  '  Connection  charge  is  «*  *  STRtSPNTC0NECT,6,2)  a  •  per  line.' 

LINE4  *  '  Total  connection  charge  For  this  conFiguration  is  I*  *  STRICO 
NECT0TAL,7,2)  ♦  *.' 

LINES  ■  '  Hinieui  usage  charge  is  I*  *  STR(SPRNT.HIN,6,2)  *  'per  line 
eiclusive  oF  access  charges.' 

LINEi  *  '  Total  lonthly  cost  For  this  conFiguration  is  t'  *  STRCSPNT  TOTAL, 

12,21  ♦ 

REPORT  FORH  SPRNTOUT  HEADIN6  '  OPTIHIZED  CONFIGURATION:  '  *  FIELD 

OUT  ♦  '  •♦*«'♦  STR<RETR0,3,O)  ♦  'X  ON-NET/'  ♦  STR(100-HETRO,3 

,01  ♦  *X  OFF-NET*  ♦  •)'  TO  PRINT 
SET  PRINT  ON 
? 

7 

? 

?  LINEl 
?  LINE2 
? 

?  LINES 
?  L1NE4 
? 

IF  SPRNT  NIN  >  0 
?  LINES 
? 

ELSE 
ENDIF 
?  LINE& 

7 

SET  PRINT  OFF 


^'1 


^4 


TYPE  \NEHNET\PRNTSBS.PR6 


CLEAR 

RARE  ■  FILENAHE  *  '.SBS* 

USE  \RESULTS\INAflE 

RESTORE  FROn  \TABLES\CONSTANT  ADDITIVE 

LINEl  >  '  Accmi  charge  is  t*  *  STR(SBS.ACCESS,&,2)  *  '  per  line.* 

LINE2  ■  '  Total  lonthly  access  charge  Tor  this  conTiguration  is  t*  *  STR(AC 

CES.SBS,7,2)  ♦  *.* 

LINE3  «  '  Hiniiue  usage  charge  is  I*  *  STR(SBS_I1IN,6,2)  *  *  il  average 

use  is  less  than  '  *  STR(SBS_HRSHIN,3,0)  *  *  hours/line.' 

L1NE4  ■  '  Total  oonthly  cost  Tor  this  conTiguration  is  S*  +  STRiSBS.TOT 

AL,11,2)  ♦  *.* 

LINES  «  '  Connection  charges  per  line  are  based  on  the  distance  betneen  you 
r* 

L1NE6  «  '  exchange  carrier  Hire  center  and  the  SBS  Skyline  HATS  access  poin 
t.* 

REPORT  FORM  \N0HNET\SBS0UT  HEADING  'OPTINIZED  CONFIGURATION:  *  *  FIELDOUT  T 
0  PRINT 
SET  PRINT  ON 

f 


?  LINEl 
?  LINE2 
IF  SBS.NIN  >  0 
? 

?  LINES 
ELSE 
ENDIF 
?  LINE4 
? 

?  LINES 
?  LINE6 

USE  \TABLES\SB8C0NEC 
SET  KARGIN  TO  30 

9 


DISPLAY  OFF  ALL 
? 

SET  KARGIN  TO  0 
SET  PRINT  OFF 


^<1 


TYPE  \NEItNET\PRNT0UT.PR6 


CLEAR 

RARE  ■  FILENAHE  4  ’.NEN’ 

USE  \RESULTS\ANAnE 
LINED  >  '  OUT  NATS 

LINEl  >  '  BUSY  HOUR  TRAFFIC 

LINE2  =  ‘  (Ninutes) 

LINES  »  '  B 

NO' 

NUNBER  *  1 

DO  HHILE  NUflBER  <>  NAXOUT 

PEAKNAHE  <  'PEAKHR'  *  STR(BAND,l,OI  *  'OUT' 
LINENANE  -  'LINE'  *  STR(BAND  *  3,1,0) 
ALINENANE  -  ‘  BAND  '  *  STR(BAND,1,0)  *  ' 
,6,1)  ♦  •  '  ♦  STRIUSE  DAY, 6,2)  ♦  ' 

)  ♦  ■  '  ♦  STR(USE.NI6HT,6,2) 

SKIP 

NUNBER  «  NUNBER  «  1 
ENDDO 

GOTO  TOP 

SET  PRINT  ON 
? 

? 

?  LINEO 
?  LINEl 
?  LINE2 
?  LINE3 
? 

NUNBER  •  1 

DO  NHILE  NUNBER  <«  NAIOUT 

LINENANE  >  'LINE'  t  STRIBAND  *  3,1,0) 

?  6LINENANE 
SKIP 

NUNBER  *  NUNBER  *  1 
ENDDO 
? 

SET  PRINT  OFF 
RETURN 


OUT  NATS' 

NONTHLY  TRAFFIC' 

(Hours) ' 

EVENING  NIGHT/NEEKE 


STRIAPEAKNANE 

STR(USE.EVE,6,2 


. ’ 


160 


TYPE  \HE«I(ET\PRHTTIH.PR6 


CLEAR 

RARE  •  FILENAME  +  •.TIN- 
USE  \RESULTS\tNANE 

RESTORE  FROM  \TABLES\CONSTANT  ADDITIVE 
SUN  QUANTITY  TO  NUNLINES 
SELECT  2 

USE  \TABLES\ATITIN 

IF  NUNLINES  >  0 
CONECTOTAL  *  0 
ELSE 

CONECTOTAL  *  CDNNECTl  *  (NUNLINES)  «C0NNECT2 
ENDIF 

SELECT  1 

LlNEl  ■  •  Accm  chargt  it  f  *  STR(B'>ACCESS,6,2)  t  •  pir  line.' 

L1NE2  »  ’  Connection  charge  it  ♦*  ♦  STR(B->C0NNECTl,A,2)  ♦  '  for  the  first 

line  and  ' 

LINES  *  '  I*  4  STR(B’>C0NNECT2,6,2)  t  '  for  each  successive  line.' 

LINE4  *  '  Total  connection  charge  for  this  configuration  is  $'  *  STRICONEC 

TOTAL, 7, 2)  ♦  '.' 

LINES  ■  '  Ninieue  usage  charge  is  I'  *  STR(ATT.HININ,6,2)  *  '  per  line  excl 
usive  of  access  charges.' 

REPORT  FORM  \NONNET\ATITIN  HEADIN6  'OPTIHIZED  CONFIGURATION:  '  *  FIELDIN  TO 
PRINT 

SET  PRINT  ON 
? 

? 

7 

?  LINEl 

7 

?  LINE2 
?  LINES 

7 

?  LINE4 

IF  ATT  NININ  >  0 
?  LINES 
ELSE 
ENDIF 

7 

SET  PRINT  OFF 
RETURN 


TYPE  \NEIIHET\PRNTlH.PRe 


CLEAR 

RARE  >  FILENAME  *  ’.NEH* 
USE  \RESULTS\iiNAnE 


LINEO  -  '  IN  NATS 

LINEl  *  '  BUSY  HOUR  TRAFFIC 

LINE2  ■  ‘  (HinutK) 

LINES  «  ■ 

ND‘ 

NUMBER  *  1 

LOCATE  FOR  .NOT.  OUT 

00  NHILE  NUMBER  <<  MAXIN 

PEAKNAME  «  'PEAKHR'  *  STR(BAND,1,0)  *  ‘IN' 

LINENAHE  «  'LINE'  *  STRIBAND  *  3,1,0) 

ILINENAME  *  '  BAND  ‘  *  STR(BAND,1,0)  *  ‘  '  *  STR ((PEAKNAME 

,6,11  ♦  '  '  ♦  STR(USE  DAY,6,2)  ♦  '  '  ♦  STR(USE  EVE, 6,2 

)  ♦  ‘  ‘  ♦  STR(USE  NI6HT,6,2) 

SKIP 

NUMBER  «  NUMBER  *  1 
ENDDO 

LOCATE  FOR  .NOT.  OUT 
SET  PRINT  ON 
? 

? 

?  LINEO 
?  LINEl 
?  LINE2 
?  LINES 

NUMBER  «  1 

DO  NHILE  NUMBER  <>  MATIN 

LINENAHE  *  'LINE'  *  STR(BANS  *  3,1,0) 

?  (LINENAHE 
SKIP 

NUMBER  «  NUMBER  *  1 
ENDDO 


IN  HATS' 

MONTHLY  TRAFFIC 
(Hours) ‘ 

DAY  EVENING  NI6HT/HEEKE 


? 

SET  PRINT  OFF 


TYPE  \TABLES\TABLES.PR6 


CLEAR  ALL 

CLEAR 

TEH 


LOAD  NEH  CARRIER  RATE  TABLES 


This  option  Mill  load  new  carrier  rate  tables  onto  the  OPTICOIf 
prograe  as  Hell  as  any  nee  paraieters  such  as  access  charges, 
connection  charges,  einieue  aeount  billed,  etc.  HARN1N6!  OLD 
TABLES  AND  PARANETERS  MILL  BE  ERASED.  IF  YOU  DESIRE  TO  SAVE  THE 
OLD  TABLES  OR  RUN  DATA  USING  THE  OLD  TABLES,  BE  SURE  TO  NANE  A  COPY 
OF  THIS  DISK  BEFORE  PROCEEDING. 


ENDTEIT 

CHOICE  »  'N' 

DO  NHILE  .T. 

I  20,10  SAY  'DO  YOU  NISH  TO  CONTINUE  NITH  THIS  OPTION  (Y/N)?‘ 
DICE  PICTURE  •!■ 

READ 
00  CASE 

CASE  CHOICE  «  'Y' 

DO  LOAD 
RETURN 

CASE  CHOICE  •  'N' 

RETURN 

ENDCASE 

ENDDO 


SET  ECHO  OFF 


CLEAR 

(IPTICOHFIL  =  *  • 

OBASEFIL  »  ■  ■ 

DO  WHILE  .NOT.  ((DBASEFIL  >*  'C  .AND.  DBASEFIL  <»  'D'  .AND.  OPTICOHFIL  > 
•A'  .AND.  OPTICOHFIL  <*  'D')  .OR.  (OBASEFIL  =  'A'  .AND.  OPTICOHFIL  >»  ’B' 
AND.  OPTICOHFIL  <=  'D')) 

OPTICOHFIL  «  •  ■ 

DBASEFIL  «  •  • 

I  B,10  SAY  'NNICH  DRIVE  IS  OPTICOH  PROSRAH  ON  (A/B/C/D)?*  SET  OPT 

QHFIL  PICTURE  *!* 

•  10,10  SAY  ‘WHICH  DRIVE  IS  DBASE  III  ON  (A/B/C/D)?‘  SET  DBASEFIL 
ICTURE  ’!' 

READ 

ENDDO 

I  15,10  SAY  'INSERT  FLOPPY  WITH  UPDATED  TABLES  IN  DRIVE  B.' 

WAIT 

DO  CASE 

CASE  OPTICOHFIL  *  'C* 

!  COPY  B:\TABLES\t.0BF  C:\TABLES\*.DBF 
!  COPY  B!\TABLES\f.HEH  C:\TABLES\f.HEH 
RETURN 

CASE  OPTICOHFIL  *  ‘D’ 

!  COPY  B;\TABLES\i.OBF  D:\TABLES\t.DBF 
!  COPY  6t\TABLE5\f.HEn  0:\TABLES\*.HEH 
RETURN 

CASE  DBASEFIL  «  'A' 

!  HD  AiVTABLES 

!  COPY  B:\TABLES\f.DBF  A:\TABLES\i.DBF 
!  COPY  B:\TABLES\».HEH  A;\TABLES\t.H£H 
CASE  DBASEFIL  «  ‘C 
!  HD  C:\TABLES 

!  COPY  B;\TABLES\t.DBF  C:\TABLES\i.DBF 
!  COPY  B:\TABLES\i.HEH  C:\TABLES\».HEH 
CASE  DBASEFIL  <  'D' 

!  HD  D;\TABLES 

!  COPY  B:\TABLES\t.DBF  D:\TABLES\t.DBF 
!  COPY  B:\TABLES\t, NEH  D:\TABLES\f.HEH 


i  15,10  SAY  'INSERT  FLOPPY  NITH  OPTICOH  PROSRAH  IN  DRIVE  B. 

HAIT 

DO  CASE 

CASE  DBASEFIL  »  'A* 

!  COPY  A:\TABLES\t.DBF  B:\TABLES\t.DBF 
I  COPY  A:\TABLES\«.HEN  B:\TABLES\t.NEn 
!  ERASE  A:\TABLES\«.* 

I  RD  A:\TABLES 
CASE  DBASEFIL  «  'C 

!  COPY  C:\TABLES\*.DBF  B:\TABLES\t.DBF 
!  COPY  C:\TABLES\».HEH  B:\TABLES\».HEH 
!  ERASE  C:\TABLES\t.« 

!  RD  C:\TABLES 
CASE  DBASEFIL  •  'D' 

!  COPY  D:\TABLES\<.DBF  B: \TABLES\*. DBF 
!  COPY  D:\TABLES\t.HEH  B:\TABLES\i.NEH 
!  ERASE  D:\TABLES\«.« 

!  RD  D:\TABLES 

ENDCASE 


RETURN 

SET  ECHO  OFF 


TYPE  \RESULTS\RESULTS.PR6 


CLEAR  ALL 
CLEAR 

I  5,10  SAY  'EXISTINS  RESULT  FILES  ARE:' 

? 

? 

DIR  \RESULTS\i.DBF 
? 

? 

STORE  'N'  TO  CHOICE 
STORE  •  •  TO  FILENAHE 

DO  WILE  .T. 

•  24,0  SAY  'DO  YOU  HISH  TO  SEE  AHY  OF  THESE  FILES  (Y/H)?'  BET  CHOICE  PICTUR 

E  •!' 

READ 
DO  CASE 

CASE  CHOICE  «  'Y* 

SET  SAFETY  OFF 

I  24,50  SAY  'CHOOSE  ONE:'  BET  FILENAHE  PICTURE  '!!!!!!!!' 

READ 

IF  FILENAHE  *  '  ' 

RETURN 

ENOIF 

FILENAHE  «  TRIH (FILENAHE) 

SAVE  TO  \RESULTS\TEHP 
DO  OUTPUT 
SET  SAFETY  ON 
RETURN 

CASE  CHOICE  ■  'N' 

RETURN 

ENDCASE 

ENDDO 


[ilfl 


TYPE  \RESULTS\0UTPUT.PR6 


CLEAR 

FILENAHE  >  TRin(FILENAflEI 
USE  IFILENAHE 
COPY  TO  \NONNET\RESULTS 
RESTORE  FROM  \RESULTS\(FILENANE 
RELEASE  ALL  EXCEPT  RETRO 
SAVE  TO  \RESULTS\HETRa 
RESTORE  FROH  \TABLES\CONSTANT 
RESTORE  FROn  RETRO  ADDITIVE 
SAVE  TO  \TABLES\CORSTART 
DO  HHILE  .T. 

CLEAR 

STORE  ‘  '  TO  CHOICE 

I  8,25  SAY  '-1-  DISPLAY  RESULTS  ON  SCREEN.’ 

I  10,25  SAY  '-2-  PRINT  OUT  THE  RESULTS.’ 

I  IS,25  SAY  '-0-  FINISHED.’ 

I  17,25  SAY  ’CHOOSE  ONEs’  6ET  CHOICE  PICTURE  ’9 
READ 

DO  CASE 

CASE  CHOICE  <  ’1’ 

DO  DISPLAY 
CASE  CHOICE  «  *2’ 

DO  PRINT 

CASE  CHOICE  »  ’0’ 

RETURN 

ENDCASE 


SET  ECHO  OFF 


TYPE  \RESULTS\DlSPLAy.PR6 


CLEAR 

SET  PATH  TO  B:\NONNET 
DO  DISPLAY 

RESTORE  FROM  \RESULTS\TEnP 

RESTORE  FROH  \RESULTS\tiFILENAHE  ADDITIVE 

IF  OPTIMIZE 

SET  PATH  TO  B:\NEHNET 
DO  DISPLAY 

SET  PATH  TO  B:\RESULTS 
ENDIF 


TYPE  \RESIJLTS\PRINT.PR6 


CLEAR 

SET  PATH  TO  B:\NOHNET 
DO  PRINT 

RESTORE  FROR  \RESULTS\TENP 

RESTORE  FROM  \RESULTS\tFILENAHE  ADDITIVE 


IF  OPTIMIZE 

SET  PATH  TO  B:\NENNET 
DO  PRINT 

SET  PATH  TO  B:\RESULTS 
ENOIF 

RETURN 

SET  ECHO  OFF 


169 


TYPE  \DELETE\DELETE.PM 


CLEAR  ALL 
CLEAR 

I  5,10  SAY  *EnSTIN6  RESULT  FILES  ARE:* 


DIR  \RESULTS\t.DBF 
? 

? 

STORE  'N*  TO  CHOICE 
STORE  *  *  TO  FILENAME 

I  23,0  SAY  ‘DO  YOU  NISH  TO  DELETE  ANY  OF  THESE  FILES  (Y/N)?'  SET  CHOICE  PICTURE 

■  I  ■ 

READ 

IF  CHOICE  »  'Y' 

I  23,50  SAY  ‘CHOOSE  ONE:'  SET  FILENAME  PICTURE  '!!!!!!!!’ 

READ 

IF  FILENAME  *  ‘ 

RETURN 

ENDIF 

FILENAME  •  TRIM (FILENAME) 

RESTORE  FROM  \RESULTSMFILENAIS 

!  ERASE  B:\DELETE\*.ATT 
!  ERASE  B:\DELETE\t.MCI 
!  ERASE  B:\DELETE\f.SPT 
!  ERASE  B:\DELETE\«.SBS 
!  ERASE  S:\DELETE\f.DBF 
!  ERASE  B:\DELETE\«.HEM 
!  ERASE  B:\DELETE\f.NEN 
!  ERASE  B:\DELETE\«.T1N 


NAME  •  FILENAME  *  '.MEM' 

COPY  FILE  \RESULTS\ltNAME  TO  \DELETE\DNAME 
DELETE  FILE  \RESULTS\DNAME 

NAME  *  FILENAME  *  '.DBF' 

COPY  FILE  \RESULTSV(NAHE  TO  \DELETE\ANANE 
DELETE  FILE  \RESULTS\DNAME 


IF  OPTIMIZE 


USE  \DELETE\tiNAnE 

NAHE  >  FILENAME  *  ’.MEN' 

COPY  FILE  \RESULTS\ANAME  TO  \DELETE\ANANE 
DELETE  FILE  \RESULTS\tiNAHE 


NAME  >  FILENAME  *  ‘.AH' 

COPY  FILE  \RESULTS\MAME  TO  \DELETE\ANAME 
DELETE  FILE  \RESULTS\iiNAME 

NAME  «  FILENAME  *  '.MCI' 

COPY  FILE  \RESULTS\tiNAME  TO  \DELETE\ANAME 
DELETE  FILE  \RESULTSVIiNAME 

NAME  >  FILENAME  *  ‘.SPT* 

COPY  FILE  \RESULTS\ANAME  TO  \DELETE\ANAME 
DELETE  FILE  \RESULTS\UAHE 

NAME  «  FILENAME  *  '.SDS' 

COPY  FILE  \RESULTS\liNAME  TO  \DELETE\liNAME 
DELETE  FILE  \RESULTS\tNAME 


LOCATE  FOR  .NOT.  OUT 


IF  SAND  >  0 


NAME  »  FILENAME  ♦  '.TIN' 

COPY  FILE  \RESULTS\MAME  TO  \DELETE\INAME 
DELETE  FILE  VRESULTSMNAME 


ENDIF 

ENDIF 

ENDIF 


SET  ECHO  OFF 


b1 


Structure  for  database  :  B: 

±N0WNET±N0WNET . dbf 

u 

Number 

of  data  records  : 

2 

1 

Date  of  last  update  :  12/20/85 

s 

Field 

Field  name 

Type 

Width 

Dec 

s 

1 

BAND 

Numeric 

1 

M 

2 

OUT 

Logical 

1 

M 

3 

QUANTITY 

Numeric 

2 

H 

4 

USE  DAY 

Numeric 

6 

2 

B 

5 

USE  EVE 

Numeric 

6 

2 

*  wT  - 

6  USE  NIGHT 
**  Total  ** 

Numeric 

6 

23 

2 

1 

Structure  for  database  ;  B: 

±NOWNET±RESULTS . dbf 

Number 

of  data  records  : 

4 

Date  of  last  update  :  12/03/85 

‘v 

Field 

Field  name 

Type 

Width 

Dec 

1 

BAND 

Numeric 

1 

i 

2 

OUT 

Logical 

1 

3 

QUANTITY 

Numeric 

2 

^  W>  • 

4 

USE  DAY 

Numeric 

6 

2 

o:- 

5 

USE  EVE 

Numeric 

6 

2 

X: 

6 

USE  NIGHT 

Numeric 

6 

2 

7 

DAY  ATT 

Numeric 

8 

2 

i 

8 

EVE  ATT 

Numeric 

8 

2 

% 

9 

NIGHT  ATT 

Numeric 

8 

2 

4^ 

10 

ACCES*"  ATT 

Numeric 

7 

2 

'4^ 

11 

ATT  TOTAL 

Numeric 

9 

2 

12 

DAY  MCI 

Numeric 

8 

2 

13 

EVE  MCI 

Numeric 

8 

2 

i 

14 

NIGHT  MCI 

Numeric 

8 

2 

m 

k  *  ■ 

15 

ACCES  MCI 

Numeric 

7 

2 

16 

MCI  TOTAL 

Numeric 

9 

2 

.v; 

17 

DAY  SENT 

Numeric 

8 

2 

.;h; 

18 

EVE  SPNT 

Numeric 

8 

2 

i'/ 

19 

NIGHT  SPNT 

Numeric 

8 

2 

E 

20 

ACCES  SPNT 

Numeric 

7 

2 

iw 

%  '_ 

21 

SPNT  TOTAL 

Numeric 

9 

2 

.■/ 

22 

SBS  IlNES 

Numeric 

3 

y  • 

23 

TIER 

Numeric 

1 

y.' 

24 

PERCENT 

Numeric 

2 

V  * 

25 

SBSHRS  DAY 

Numeric 

6 

2 

u>2l 

r 

26 

DAY  SBS 

Numeric 

8 

2 

K. 

27 

SBSHRS  EVE 

Numeric 

6 

2 

28 

NIGHT  SBS 

Numeric 

8 

2 

29 

ACCES  SBS 

Numeric 

8 

2 

§ 

30 

SBS  TOTAL 

Numeric 

11 

2 

&? 

**  Total 

196 

Structurt  for  database  :  B:\NENNET\POISSDN.dbf 

Suaber  of  data  records  :  20 

ate  of  last  update  :  12/12/B5 
Field  Field  naee  Type  Width  Dec 


1 

TRUNKS 

Nuaeric 

2 

2 

PI 

Nuaeric 

6 

3 

P2 

Nuaeric 

6 

4 

P3 

Nuaeric 

6 

5 

P4 

Nuaeric 

6 

& 

P5 

Nuaeric 

6 

7 

P6 

Nuaeric 

6 

8 

P7 

Nuaeric 

6 

9 

P8 

Nuaeric 

6 

10 

P9 

Nuaeric 

6 

11 

PIO 

Nuaeric 

6 

12 

Pll 

Nuaeric 

6 

13 

P12 

Nuaeric 

6 

14 

P13 

Nuaeric 

6 

15 

P14 

Nuaeric 

6 

16 

P15 

Nuaeric 

6 

17 

P16 

Nuaeric 

6 

18 

PI  7 

Nuaeric 

6 

19 

Pt8 

Nuaeric 

6 

20 

P19 

Nuaeric 

6 

21 

P20 

Nuaeric 

6 

22 

P21 

Nuaeric 

6 

23 

P22 

Nuaeric 

6 

24 

P23 

Nuaeric 

6 

23 

P24 

Nuaeric 

6 

26 

P25 

Nuaeric 

6 

27 

P26 

Nuaeric 

6 

28 

P27 

Nuaeric 

6 

29 

P2e 

Nuaeric 

6 

30 

P29 

Nuaeric 

6 

31 

P30 

Nuaeric 

6 

32 

P31 

Nuaeric 

6 

33 

P32 

Nuaeric 

6 

34 

P33 

Nuaeric 

6 

35 

P34 

Nuaeric 

6 

36 

P35 

NuMric 

6 

37 

P36 

Nuaeric 

6 

38 

P37 

Nuaeric 

6 

39 

P38 

Nuaeric 

6 

40 

P39 

Nuaeric 

6 

41 

P40 

Nuaeric 

6 

42 

P41 

Nuaeric 

6 

43 

P42 

Nuaeric 

6 

44 

P43 

Nuaeric 

6 

45 

P44 

Nuaeric 

6 

46 

P45 

Nuaeric 

6 

47 

P46 

Nuaeric 

6 

48 

P47 

Nuaeric 

6 

49 

P48 

Nuaeric 

6 

50 

P49 

Nuaeric 

6 

51 

P50 

Nuaeric 

6 

«»  Total  « 

303 

structure  for  database 
Number  of  data  records 
Date  of  last  update 
Field  Field  name  Type 


B ; ±NEWNET±POSSIBLE . dbf 

64 


1 

2 

3 

4 

5 

6 


SIX 

FIVE 

FOUR 

THREE 

TWO 

ONE 


**  Total 


Logical 

Logical 

Logical 

Logical 

Logical 

Logical 


01/01/80 
Width 
1 
1 
1 
1 
1 
1 
7 


Dec 


Structure  for  database 
Number  of  data  records 
Date  of  last  update 
Field  Field  name  Type 
BAND 
OUT 

QUANTITY 
USE_DAY 
USE_EVE 
USE  NIGHT 


Dec 


1 

2 

3 

4 

5 

6 


**  Total  ** 


B : ±NEWNET±NEWNET . dbf 

5 

01/01/80 
Width 

Numeric  1 

Logical  1 

Numeric  2 

Numeric  6 

Numeric  6 

Numeric  6 

23 


2 

2 

2 


Structure  for  database  :  B: 

±NEWNET±PEAKHR . dbf 

Number 

of  data 

records  : 

6 

Date  of  last  update  ;  10/25/85 

Field 

Field  name  Type 

Width 

Dec 

1 

BAND 

Numeric 

1 

2 

PEAKHR1 

Numeric 

6 

1 

3 

PEAKHR2 

Numeric 

6 

1 

4 

PEAKHR3 

Numeric 

6 

1 

5 

PEAKHR4 

Numeric 

6 

1 

6 

PEAKHR5 

Numeric 

6 

1 

7 

PEAKHR6 

Numeric 

6 

1 

**  Total 

38 

175 


Structure  for  database  :  B:±NEWNET±RESULTS.dbf 


Number  of  data  records  :  1 

Date  of  last  update  ;  01/01/80 


Field 

Field  name 

Type 

Width 

Dec 

1 

BAND 

Numeric 

1 

2 

OUT 

Logical 

1 

3 

QUANTITY 

Numeric 

2 

4 

USE  DAY 

Numeric 

6 

2 

5 

USEUVE 

Numeric 

6 

2 

6 

USE  NIGHT 

Numeric 

6 

2 

7 

DAY  ATT 

Numeric 

8 

2 

8 

EVE  ATT 

Numeric 

8 

2 

9 

NIGHT  ATT 

Numeric 

8 

2 

10 

ACCES  ATT 

Numeric 

7 

2 

11 

ATT  TOTAL 

Numeric 

9 

2 

12 

DAY  MCI 

Numeric 

8 

2 

13 

EVE  MCI 

Numeric 

8 

2 

14 

NIGHT  MCI 

Numeric 

8 

2 

15 

ACCES  MCI 

Numeric 

7 

2 

16 

MCI  TOTAL 

Numeric 

9 

2 

17 

DAY  SPNT 

Numeric 

8 

2 

18 

EVE  SPNT 

Numeric 

8 

2 

19 

NIGHT  SPNT 

Numeric 

8 

2 

20 

ACCES  SPNT 

Numeric 

7 

2 

21 

SPNT  TOTAL 

Numeric 

9 

2 

22 

SBS  LINES 

Numeric 

3 

23 

TIER 

Numeric 

1 

24 

PERCENT 

Numeric 

2 

25 

SBSHRS  DAY 

Numeric 

6 

2 

26 

DAY  SBS 

Numeric 

8 

2 

27 

SBSHRS  EVE 

Numeric 

6 

2 

28 

NIGHT  SBS 

Numeric 

8 

2 

29 

ACCES  SBS 

Numeric 

8 

2 

30 

SBS  TOTAL 

Numeric 

11 

2 

**  Total  **  196 


Structure  for  database  :  B:±NEWNET±AT&TOUT.dbf 


Number  of  data  records  ;  2 

Date  of  last  update  ;  01/01/80 


Field 

Field  name 

Type 

Width 

Dec 

1 

BAND 

Numeric 

1 

2 

OUT 

Logical 

1 

3 

QUANTITY 

Numeric 

2 

4 

USE  DAY 

Numeric 

6 

2 

5 

USE  EVE 

Numeric 

6 

2 

6 

USE  NIGHT 

Numeric 

6 

2 

7 

DAY  ATT 

Numeric 

8 

2 

8 

EVE  ATT 

Numeric 

8 

2 

9 

NIGHT  ATT 

Numeric 

8 

2 

10 

ACCES  ATT 

Numeric 

7 

2 

11 

ATT  TOTAL 

Numeric 

9 

2 

**  Total  **  63 
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Structure  for  database  ;  B:±NEWNET±MCIOUT.dbf 


Number  of  data  records  :  2 

Date  of  last  update  :  01/01/80 


Field 

Field  name 

Type 

Width 

Dec 

1 

BAND 

Numeric 

1 

2 

OUT 

Logical 

1 

3 

QUANTITY 

Numeric 

2 

4 

USE  DAY 

Numeric 

6 

2 

5 

USE  EVE 

Numeric 

6 

2 

6 

USE  NIGHT 

Numeric 

6 

2 

7 

DAY  MCI 

Numeric 

8 

2 

8 

EVE  MCI 

Numeric 

8 

2 

9 

NIGHT  MCI 

Numeric 

8 

2 

10 

ACCES  MCI 

Numeric 

7 

2 

11 

MCI  TOTAL 

Numeric 

9 

2 

Total 

63 

Structure  for  database  :  B:±NEWNET±SPRNTOUT.dbf 


Number  of  data  records  :  5 

Date  last  update  :  01/01/80 


Field 

r'leld  name 

Type 

Width 

Dec 

1 

BAND 

Numeric 

1 

2 

OUT 

Logical 

1 

3 

QUANTITY 

Numeric 

2 

4 

USE  DAY 

Numeric 

6 

2 

5 

USE  EVE 

Numeric 

6 

2 

6 

USE  NIGHT 

Numeric 

6 

2 

7 

DAY  SPNT 

Numeric 

8 

2 

8 

EVE  SPNT 

Numeric 

8 

2 

9 

NIGHT  SPNT 

Numeric 

8 

2 

10 

ACCES  SPNT 

Numeric 

7 

2 

11 

SPNT  TOTAL 

Numeric 

9 

2 

Total  »*  63 


Structure  for  database  :  B;±NEWNET±SKYLINE.dbf 


Number  of  data  records  ;  4 

Date  of  last  update  :  01/01/80 


Field 

Field  name 

Type 

Width 

Dec 

1 

SBS  LINES 

Numeric 

3 

2 

TIER 

Numeric 

1 

3 

PERCENT 

Numeric 

2 

4 

SBSHRS  DAY 

Numeric 

6 

2 

5 

DAY  SBS 

Numeric 

8 

2 

6 

SBSHRS  EVE 

Numeric 

6 

2 

7 

NIGHT  SBS 

Numeric 

8 

2 

8 

ACCES  SBS 

Numeric 

8 

2 

9 

SBS  TOTAL 

Numeric 

11 

2 

Total  **  54 


m>-RlS6  744 


UNCLASSIFIED 


A  CONPUTER  PROGRAM  FOR  OPTIHIZINQ  LONG  HAUL  TELEPHONE 
NETHORKS  FOR  LEAST. .  <U>  AIR  FORCE  INST  OF  TECH 
HRIGHT-PATTERSON  AFB  OH  S  A  DRAPER  19S£ 
AFIT7CI/'HR-S6-48T  F/G  1772 
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Structure  for  database  :  B:±NEWNET±AT&TIN.dbf 


Number  of  data  records  :  1 

Date  of  last  update  :  01/01/80 


Field 

Field  name 

Type 

Width 

Dec 

1 

BAND 

Numeric 

1 

2 

OUT 

Logical 

1 

3 

QUANTITY 

Numeric 

2 

4 

USE  DAI 

Numeric 

6 

2 

5 

USEDVE 

Numeric 

6 

2 

6 

use” night 

Numeric 

6 

2 

7 

day“att 

Numeric 

8 

2 

8 

eve” ATT 

Numeric 

8 

2 

9 

NIGHT  ATT 

Numeric 

8 

2 

10 

ACCES  ATT 

Numeric 

7 

2 

11 

ATT  TOTAL 

Numeric 

9 

2 

»*  Total  ** 

63 

17S 


Structure  for  database  :  B:±TABLES±AT&TOnT.dbf 


Number  of  data  records  :  6 

Date  of  last  update  :  10/07/85 


Field 

Field  name 

Type 

Width 

Dec 

1 

BAND 

Numeric 

1 

2 

DA1 15 

Numeric 

5 

2 

3 

EVE15 

Numeric 

5 

2 

4 

DAT25 

Numeric 

5 

2 

5 

EVE25 

Numeric 

5 

2 

6 

DAT40 

Numeric 

5 

2 

7 

EVE40 

Numeric 

5 

2 

8 

DAY80 

Numeric 

5 

2 

9 

EVE80 

Numeric 

5 

2 

10 

WEEKEND 

Numeric 

5 

2 

11 

ACCESS 

Numeric 

5 

2 

12 

C0NNECT1 

Numeric 

6 

2 

13 

C0NNECT2 

Numeric 

6 

2 

Total  «* 

64 

Structure  for  database 
Number  of  data  records 
Date  of  last  update 
Field  Field  name  Type 


B : ±TABLES± AT&TIN . dbf 

6 

01/01/80 

Width  Dec 


1 

BAND 

Numeric 

1 

2 

DAT15 

Numeric 

5 

2 

3 

EVE15 

Numeric 

5 

2 

4 

DAI25 

Numeric 

5 

2 

5 

EVE25 

Numeric 

5 

2 

6 

DAT40 

Numeric 

5 

2 

7 

EVE40 

Numeric 

5 

2 

8 

DAI80 

Numeric 

5 

2 

9 

EVE80 

Numeric 

5 

2 

10 

WEEKEND 

Numeric 

5 

2 

11 

ACCESS 

Numeric 

5 

2 

12 

C0NNECT1 

Numeric 

6 

2 

13 

C0NNECT2 

Numeric 

6 

2 

Total  ** 

64 

179 


Structure  for  database  :  B:±TABLES±SPRNTOUT.dbf 


Number  of  data  records  :  12 

Date  of  last  update  :  01/01/80 


Field 

Field  name 

Type 

Width 

Dec 

1 

BAND 

Numeric 

1 

2 

ON  NET 

Logical 

1 

3 

daYo  40 

Numeric 

5 

2 

4 

EVE0“ 40 

Numeric 

5 

2 

5 

DkJiTS  70 

Numeric 

5 

2 

6 

EVE40  70 

Numeric 

5 

2 

7 

DAT70  100 

Numeric 

5 

2 

8 

EVE70  100 

Numeric 

5 

2 

9 

DAI100PLUS 

Numeric 

5 

2 

10 

EVE1 OOPLUS 

Numeric 

5 

2 

11 

WEEKEND 

Numeric 

5 

2 

**  Total 

48 

Structure  for  database  :  B:±TABL£S±SBSOUT.dbf 


Number 

of  data  records  : 

44 

Date  of  last  update  :  01/01/80 

Field 

Field  name 

Type 

Width 

Dec 

1 

DSAGE  HRS 

Numeric 

3 

2 

TIER1  DAT 

Numeric 

5 

2 

3 

TIER1"0THR 

Numeric 

5 

2 

4 

TIER2"DAI 

Numeric 

5 

2 

5 

TIER2‘"0THR 

Numeric 

5 

2 

6 

TIER3“DAI 

Numeric 

5 

2 

7 

TIER3“0THR 

Numeric 

5 

2 

8 

TIER4” DAI 

Numeric 

5 

2 

9 

TIER4  OTHR 

Numeric 

5 

2 

Total  *» 

44 

Structure  for  database  :  B:±TABLES±SBSIN.dbf 


Number 

of  data  records  : 

42 

Date  of  last  update  :  01/01/80 

Field 

Field  name 

Type 

Width 

Dec 

1 

USAGE  HRS 

Numeric 

3 

2 

TIER1  DAI 

Numeric 

5 

2 

3 

TIER1“0THR 

Numeric 

5 

2 

4 

TIER2  DAI 

Numeric 

5 

2 

5 

TIER2  OTHR 

Numeric 

5 

2 

6 

TIER3  DAI 

Numeric 

5 

2 

7 

TIER3“0THR 

Numeric 

5 

2 

••  Total  ** 

34 
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Structure  for  database  :  B:±TABLES±MCIOnT.dbf 


Number  of  data  records  :  12 

Date  of  last  update  :  10/11/85 


Field 

Field  name 

Type 

Width 

Dec 

1 

BAND 

Numeric 

1 

2 

ON  NET 

Logical 

1 

3 

DAT15 

Numeric 

5 

2 

4 

EVE15 

Numeric 

5 

2 

5 

DAT25 

Numeric 

5 

2 

6 

EVE25 

Numeric 

5 

2 

7 

DAYAO 

Numeric 

5 

2 

8 

EVE40 

Numeric 

5 

2 

9 

DAI80 

Numeric 

5 

2 

10 

EVE80 

Numeric 

5 

2 

11 

WEEKEND 

Numeric 

5 

2 

**  Total  ** 

48 

Structure  for  database  :  B:±TABLES±SBSCONEC.dbf 
Number  of  data  records  :  5 

Date  of  last  update  :  10/18/85, 

Field  Field  name  T/pe  Width  Dec 

1  DISTANCE  Character  15 

2  COST  Numeric  6  2 

**  Total  **  22 
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RESTORE  FROM  ±TABLES±CONSTANT 
LIST  MEMORY  TO  PRINT 


CHOICE 

pub 

C  "Y" 

FLAG 

pub 

L  .F. 

METRO 

pub 

N 

80  ( 

80.00000000) 

SBS1 

pub 

N 

66  ( 

66.00000000) 

SBS2 

pub 

N 

22  ( 

22.00000000) 

SBS3 

pub 

N 

11  ( 

11.00000000) 

SBS4 

pub 

N 

1  ( 

1 .00000000) 

MCI  MIN 

pub 

N 

75.00 

( 

75.00000000) 

MCI  ACCESS 

pub 

N 

100.00 

( 

100.00000000) 

MCICONNECT 

pub 

N 

120.00 

( 

120.00000000) 

SPNTCONECT 

pub 

N 

75.00 

{ 

75.00000000) 

SPNTACCESS 

pub 

N 

75.00 

( 

75.00000000) 

SBS  ACCESS 

pub 

N 

100.00 

( 

100.00000000) 

SBS  MIN 

pub 

N 

400.00 

( 

400.00000000) 

SBS  HRSMIN 

pub 

N 

50  ( 

50.00000000) 

ATT  MIN 

pub 

N 

0  ( 

0.00000000) 

SPRiT  MIN 

pub 

N 

0  { 

0.00000000) 

ATT  MININ 

pub 

N 

0  ( 

0.00000000) 

18  variables 

defined, 

149  bytes 

used 

238  variables 

available. 

5851  bytes 

available 

RESTORE  FROM  ±TABLES±DATE 
.  LIST  MEMORY  TO  PRINT 
DATE  pub  C  "  1  JULY  1985" 

1  variables  defined »  14  bytes  used 

255  variables  available,  5986  bytes  available 


if;' 


nI.sV.’Ls' 


APPENDIX  D 


TRAFFIC  MODELS 


Poisson 


The  probability  of  a  call  being  blocked  when 

there  are  N  trunks  carrying  a  total  of  T  erlangs  of 

traffic  Is  given  by  the  formula: 

N-1  T^  e’*^ 

(»»T)  =  1  -  E  II 


This  formula  does  not  take  Into  account  whether  blocked 
calls  are  diverted  from  the  system  or  delayed  as  In 

3 

Erlang  B  and  Erlang  C.  An  erlang  of  traffic  Is  defined 

as  60  minutes  of  circuit  usage;  l.e.,  one  call  of  60 

minutes  duration  and  six  calls  of  ten  minutes  duration 

both  equal  one  erlang  of  traffic. 

Another  unit  often  used  to  express  traffic  Is 

the  CCS  which  stands  for  hundreds  of  call-seconds  per 

hour.  In  this  case  T  •  CC8/36  or  CCS  >■  36T.  Jerry 
2 

Flnefrock  Indicates  that  both  the  erlang  and  CCS  are 
difficult  terms  to  use.  Consequently,  his  tables  are 
expressed  In  total  minutes  of  usage  for  easier  use  and 
understanding. 

The  "P"  number  generally  Indicates  the  percentage 
of  calls  reaching  a  busy  signal  on  the  first  attempt. 
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P.01  means  one  percent  of  the  calls  reach  a  busy  signal. 
As  the  ”F”  number  or  level  of  traffic  increases,  the 
actual  percentage  of  blocked  calls  exceeds  the  ”P"  number 
so  it  is  then  only  an  approximation.  For  example,  at 
P.25  with  20  circuits,  the  actual  percentage  of  blocked 
calls  is  35%.^ 
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Erlang  B 


This  formula  was  derived  by  A.K.  Erlang  of 
Denmark  in  the  early  20th  century  for  systems  where 
blocked  calls  are  diverted  from  the  system  and  sent  via 
alternate  facilities.  The  formula  is  expressed  as:^ 


Pb  (N»T)  = 


T^  e-'^ 
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Extended  Erlang  B 


This  model  was  developed  by  James  E.  Jewett  for 
situations  when  Immediate  overflow  is  not  available  and 
blocked  calls  do  not  exit  from  the  system.  It  applies  a 
factor  to  the  Erlang  B  formula  to  calculate  reattempt 
traffic 


Erlang  C 

This  applies  to  systems  which  have  an  infinite 
queue  and  blocked  calls  are  merely  delayed  until  a  trunk 

3 

is  available.  The  formula  Is:^ 
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P^.  (N,T)  =  _  N  -  t  _ 

”1  e“^  +  e”^  *  T 

i=o  "o  "ffF"  ■r-"r 

Table  Values 

Values  used  in  the  traffic  tables  for  this 
program  are  in  minutes.  The  AT&T,  MCI,  and  SPRINT  rate 
tables  are  expressed  in  cost/hour.  The  SBS  Skyline  rate 
table  is  expressed  in  cost/minute. 
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